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1. ABSTRACT 


This draft final report describes the work performed under this delivery order from May 
1992 through June 1993. The purpose of this contract was to enhance and develop an 
integrated optical performance modeling software for complex X-ray optical systems such 
as AXAF. The GRAZTRACE program developed by the MSFC Optical Systems Branch 
for modeling VETA-I was used as the starting baseline program. The original program 
was a large single file program and, therefore, could not be modified very efficiently. 

The original source code has been reorganized, and a "Make Utility" has been written to 
update the original program. The new version of the source code consists of 36 small 
source files to make it easier for the code developer to manage and modify the program. 
A user library has also been built and a "Makelib" utility has been furnished to update 
the library. With the user library, the users can easily access the GRAZTRACE source 
files and build a custom library. A user manual for the new version of GRAZTRACE 
has been compiled. 

The plotting capability for the 3-D point spread functions and contour plots has been 
provided in the GRAZTRACE using the graphics package DISPLAY. The Graphics 
emulator over the network has been set up for programming the graphics routine. The 
point spread function and the contour plot routines have also been modified to display 
the plot centroid, and to allow the user to specify the plot range, and the viewing angle 
options. 

A Command Mode version of GRAZTRACE has also been developed. More than 60 
commands have been implemented in a Code-V like format. The functions covered in 
this version include data manipulation, performance evaluation, and inquiry and setting 
of internal parameters. The user manual for these commands has been formatted as in 
Code-V, showing the command syntax, synopsis, and options. An interactive on-line help 
system for the command mode has also been accomplished to allow the user to find valid 
commands, command syntax, and command function. 

A translation program has been written to convert FEA output from structural analysis 
to GRAZTRACE surface deformation file (.dfm file). The program can accept standard 
output files and list files from COSMOS/M and NASTRAN finite analysis programs. 
Some interactive options are also provided, such as Cartesian or cylindrical coordinate 
transformation, coordinate shift and scale, and axial length change. 

A computerized database for technical documents relating to the AXAF project has been 
established. Over 5000 technical documents have been entered into the master database. 
A user can now rapidly retrieve the desired documents relating to the AXAF project. 

The summary of the work performed under this contract is shown in Figure 1. 
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Figure 1 Summary of the Work Performed 


















2. INTRODUCTION 


The work performed under this delivery order by the Center for Applied Optics (CAO) 
at the University of Alabama in Huntsville includes the development of various software 
modules to predict the optical performance and image quality of AXAF. The goal of this 
modeling effort was to take into account the effects of optical, structural and thermal 
distortions, as well the metrology errors in optical surfaces to predict the performance of 
a large and complex optical system such as Advanced X-ray Astrophysics Facility 
(AXAF). The objective was to make the modeling software user-friendly and well 
documented so that it can be used conveniently by the users, who may not be intimately 
familiar and experienced in x-ray optical analysis. 

A number of meetings were held with the Optical Branch technical staff to discuss the 
structure and other details of the software to be developed. UAH was assigned to 
implement this software on Sun workstations, and to document the software, provide 
graphical output capability, and make it user-friendly. 

The GRAZTRACE program was developed by MSFC Optical Systems Branch for 
modeling VETA-I. As this x-ray optical analysis program had proven to give reliable 
results, it was decided to use this program as the baseline for the modeling software 
effort. A direct network link was established between the CAO computers and the Sun 
workstations at the Optical Branch, using an ethemet card and the network software 
CUTCP. A separate account for CAO was established on the Sun for the software 
development work. These arrangements made it possible for CAO to access ZORRO 
and ZEUS computers at MSFC. Two options for this connection have been established: 

1. PC-Ethemet with PC-TCP/IP software 

Directly access ZORRO using PC ethemet card "Elite Plus" and the software 
CUTCP by typing: 

telnet zorro.msfc.nasa.gov 

or 

telnet 128.158.21.11 


2. UAH network 

Access ZORRO through UAH network using serial port and common 
communication software by logging into UAH network and then calling telnet. 
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3. GRAZTRACE: X-ray Optical Analysis Program 

A significant number of useful features have been incorporated into the GRAZTRACE 
software to make it more useful and user friendly. A summary of these features is 
described below. 

3.1 The "Make" utility and GRAZTRACE User Library: 

The original GRAZTRACE was a single file program. A single large file makes the 
modification of the program quite inefficient. To improve this with the "Make" utility, 
the program source file was split into 62 small source files. Then some of the files were 
combined to produce the new GRAZTRACE source code, which consists of 36 files. 

The GRAZTRACE user library has been built. The utility to rebuild the library has 
also been furnished and is called "makelib". This utility finds all the specified object files 
and builds a user specific library called "libgtrac.a". 

"Make" files for both the GRAZTRACE developer and the user have been developed, 
with the names: "gtmakefile" and "ugtmakefile". The users can simply modify their own 
routine "main.f" and "user.f , and then make and execute the program. 

The complete description of the "Make" utility and the "User Library" is attached as 
Appendix 1. 


3.2 The User Manual for GRAZTRACE Library: 

The user manual for GRAZTRACE library has been written. The m anual provides a 
sample session for a new user to get a quick start. It also contains information about the 
compiler, the Make utility and the data format. The manual covers a total of over 60 
user accessible routines and the code developer accessible routines. 

This user manual is attached as Appendix 2. 


3.3 The Graphics Features: 

The plotting capability for the 3-D point spread functions and contour plots has been 
provided in the GRAZTRACE using the graphics package DISPLAY. The graphics 
emulator over the network has been set up for progra mming the graphics routine. The 
point spread function and the contour routines have also been modified to display the 
plot centroid, and to allow the user to specify the plot range, and the viewing angle 
options. Figures 2 and 3 are sample 3-D point spread function and contour plots. The 
plot routines for these graphic features are attached as Appendix 3. 
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Figure 2 3-D Point Spread Function 




focl= 656.483 rays= 10000 energy= 1.48670 
peak= 2.78734E+29 cfr= 2.01904E-17 -6.36B79E-17 



4. THE COMMAND MODE GRAZTRACE 


UAH was asked by the Optical Systems Branch to implement the "command mode" 
input, similar to CodeV software, to improve the user interface for the GRAZTRACE 
software. The command mode user interface has been implemented and tested. The 
commands have CodeV-like structure. Most commands have exact format and function 
as those in CodeV. Using the command interface, a user can input, change, and inquire 
all the system parameters as well as perform the analysis. The command error process 
and correct command syntax prompts are also included. 

To accomplish the command mode user interface, an interpreter program has been 
written, and the main GRAZTRACE program has also modified to accommodate the 
command mode. This program consists of extensive FORTRAN code (more than 2000 
lines). The page layout for the user manual is also like that in CodeV. Each page 
includes the command summary, mnemonic and input option description. The detail 
explanation of each option and the examples of inputs have also been added to this 
documentation. 

This highly structured program allows the code developer to easily modify or upgrade the 
command mode. Some modifications have also been made to enhance the program, 
such as various ray trace patterns, ray trace data save, and array variable inquiries. 

An interactive on-line help system has also been furnished to allow the user to find the 
valid command, command syntax, and command function. 

The user manual for command mode GRAZTRACE is attached as Appendix 4. The 
complete source code and documentation are included as Appendix 5. 


5. STRUCTURAL ANALYSIS INTERFACE 


One of the goals of this project was to develop a convenient method for inputting the 
structural deformation data into the GRAZTRACE to predict the effects of structural 
distortions on the image quality. A general purpose translation program has been written 
to convert the outputs from finite element analysis (FEA) programs to GRAZTRACE 
deformation file (.dmf file). The program can accept deformation data from most 
commonly used FEA programs such as COSMOS/M and NASTRAN (standard file from 
NASTRAN and list file from COSMOS/M). The translation program is structured in 
such a way that other deformation file formats can be also be integrated easily to accept 
FEA outputs from other stuctural analysis programs. This translation program is quite 
flexible, and does not require the structural analysis data to be uniformly spaced, or to 
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have a fixed number of grid points. The grid points can also be in a random order. 
Therefore, the structural analyst has complete freedom to select the number, spacing and 
the order of grid points to optimize the structural analysis. 

The translation program provides some interactive options also, such as cartesian or 
cylindrical coordinate translation, coordinate shift and scaling, and the axial length 
change. After the FEA output file is read in, the program interpolates the data to a 
uniform grid, 201 points in the axial direction and 1001 points along the circumference. 

This translation program has been tested to evalute the effects of structural deformation 
on a sample SXI mirror. Test runs were made to determine the impact of structural 
distortions on the image quality. Figures 4 and 5 are structural analysis plots modeled by 
COSMOS/M for the SXI mirror. Figures 6 to 8 show the spot diagrams for the perfect 
mirror, and the spot diagrams for the deformed mirror as predicted by COSMOS/M, and 
NASTRAN. These spot diagrams were generated by using the command mode 
GRAZTRACE. In a similar way, the command mode GRAZTRACE can also accept 
the deformations from metrology data to predict the image degradation caused by low 
frequency surface errors. 

The source code for this structural analysis interface and the sample deformation files 
are shown in Appendix 6. 


6. AXAF PROJECT DATABASE 

The purpose of this task was to establish a project database to enable the users to 
rapidly access the technical information relating to AXAF project. Initially, the technical 
data was reviewed by UAH to establish the guidelines for relational database to 
orchestrate and retrieve the technical programmatic information. Once the guidelines 
were established, research was done on the software options for the Sun System — UNIX 
Operating System to make recommendations for the technical data management system. 
Based on the requirements for the relational database, a decision was made to use the 
Text Editor on the Sun System — UNIX Operating System for tracking the documents 
and to use the GREP search command to allow the user to search for the documents. 

Documentation was organized according to the categories of the project which serve as 
the key field for locating the data. For example, there are several subcategories under 
the AXAF Project such as AXAF-HDOS, AXAF-TRW, AXAF-SAO, and AXAF- 
SCHOTT. Each category document was labeled with the project subcategory, document 
title and the location of the file. Table 1 shows all the project files. 

After the documents were categorized, over 5000 documents were entered in the master 
data base called "FILE%." If the technical staff needs to locate a document, the FILE% 
master file is searched by using the "grep" search command as shown in Table 2 and 
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Figure 4 Surface Deformation 
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Figure 6 Spot Diagram for the Perfect Mirror Surface 
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Figure 7 Spot Diagram for the Deformation from COSMOS/M 


Deformation from NASTRAN 
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Figure 8 Spot Diagram for the Deformation from NASTRAN 


Table 3. Basically, what the command asks is to search for documents with the string 
REQUIREMENTS REVIEW" in Table 3, "AD-FIG-TECH" in Table 4. Any document 
with that string is moved into the OUT file or the venus prompt. 

The "OUT" file generates the AXAF-TECHNICAL DATABASE LIST in alphabetical 
order which is placed in the Technical Data Base book list. However, if a list is not 
needed, at the venus prompt the request for the document will be listed on the computer 
screen as shown in Table 4. This command is used if you are searching for a particular 
document, and there is not a need to print a detailed listing of documents. 

For an information system to be useful and adequately meet the objectives of easy data 
retrieval, a user manual is needed and the users must be trained properly. The Optical 
Branch staff was trained on the layout and management of the data base, and the 
commands used to retrieve documentation as needed. The files and manuals will be 
provided to the staff to refer to on the use of the Technical Data Base. The User 
Manual for the AXAF project documentation database is attached as Appendix 8. 
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Table 2 


OUTPUT LISTED AS A RESULT OF THE UNIX COMMAND 
Unix Command: 

venus {wanda} 45 > grep AXAF REQUIREMENTS REVIEW FILE%> >OUT 


AXAF TECHNICAL DATABASE 


PROJECT 

DOCUMENT 

FILE 

AXAF 

AXAF HRC AND REQUIREMENTS REV 

AXAF-PJ** 

AXAF 

SYSTEMS REQUIREMENTS REVIEW 

AXAF-PJ 

AXAF-I 

LEVEL II PROJECT REQUIREMENTS 

AXAF-PJ 

**NOTE: AXAF-PJ is the acronym for AXAF PROJECT FILES 

Table 3 

TECHNICAL DATABASE = ‘AD-FIG-TECH’ 

SPECIAL 


HEADINGS 

DOCUMENTS 

FILE 


ADAPTIVE OPTICS 

TECHNOLOGY 

ADV-FIG-TECH 

<PACE> PLASMA ASSISTED 
CHEMICAL ETCHING 

TECHNOLOGY 

ADV-FIG-TECH 

CCP EDGE FIGURING 

TECHNOLOGY 

ADV-FIG-TECH 

ELECTRO FORMED X-RAY MIRRORS 

TECHNOLOGY 

ADV-FIG-TECH 

ION FIGURING - NO INFO IN FILE 

TECHNOLOGY 
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Table 4 


Unix Command: 

venus {wanda} 46 > grep AXAF REQUIREMENTS REVIEW FILE% 
PROJECT DOCUMENT 

AXAF LEVEL II PROJECT REQUIREMENTS 

AXAF SYSTEMS REQUIREMENTS REVIEW 

AXAF HRC AND REQUIREMENTS REV 


FILE 

AXAF-PJ 

AXAF-PJ 

AXAF-PJ 
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7. CONCLUSIONS 


Significant progress has been made towards completing the tasks identified in the scope 
of work for this delivery order. The software required to model the AXAF optical 
performance has been developed. Many useful features such as graphics, "Make" utility, 
user library, command mode version of the GRAZTRACE analysis program, and 
structural analysis interface have been developed. All software has been properly 
organized and documented for user friendliness. 

The command mode version of GRAZTRACE has similar command structure as in 
CODE V, so a user who is familiar with the CODE V optical analysis program will be 
able to perform optical analysis of X-ray systems such as AXAF. The graphics feature 
allows the plotting of 3-D point spread functions and energy distribution control plots. 
The "Make" utility and a user library have been developed to allow the customization of 
the program for specific applications. The structural analysis interface can extract 
deformation data from some major FEA program outputs and convert them to 
GRAZTRACE deformation format. The user manuals for the original GRAZTRACE 
and for the command mode version of GRAZTRACE have been compiled. 

Sample user sessions showing the command mode, the interactive help system and the 
effects of structural deformations on the image quality are shown in Appendix 7. 

The AXAF technical documents have been organized and entered into a SUN database. 
The technical information has been organized systematically and the file structures were 
tested. A total of over 5000 AXAF documents have been entered into the database. A 
user manual, which explains the procedure to search for a particular type of documents, 
has been prepared. The Optical Systems Branch staff has also been trained in the use of 
the database, the file structure and the terminology used for the master database. 
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APPENDIX 1 


MAKE UTILITY AND USER LIBRARY 




Appendix 1 Make Utility and User Library 


Appendix 1 Make utility and User Library 


A1.1 gtmakefile Make file for GRAZTRACE code developer 


########################################################################## 

# makefile: gtmakefile 

# 

# This is the make file for the graztrace 
########################################################################## 

GTOBJ=/home/chen/obj 
GTEXE=/home/ chen/ exe 

LIBS= 

CMPL=f 77 
OPTS=-g 

FILE= $ { GTOB J } / calcdb . o \ 

${GTOBJ}/calwgt.o \ 

${ GTOB J} /coord. o \ 

$ {GTOB J} /del tbl . o \ 

$ { GTOB J} /dproc . o \ 

$ {GTOBJ} /eescat .o \ 

${GTOBJ}/encirc.o \ 

$ { GTOBJ} / focus . o \ 

$ {GTOBJ} /gridl .o \ 

$ { GTOBJ} / grid2 . o \ 

${GTOBJ}/main.o \ 

$ {GTOBJ} /mcomm. o \ 

${ GTOBJ} /metref.o \ 

${GTOBJ}/misce.o \ 

$ {GTOBJ} /pfocus.o \ 

$ { GTOBJ } / rdref . o \ 

$ {GTOBJ} / red. o \ 

$ {GTOBJ} / rgene . o \ 

$ {GTOBJ} /rprint . o \ 

$ {GTOBJ} /spdiag. o \ 

$ { GTOBJ} /splot . o \ 

$ { GTOBJ} /ssrt . o \ 

$ {GTOB J} / stat . o \ 

$ {GTOB J} /strace . o \ 

$ {GTOBJ} /user . o \ 

${GTOBJ}/utrace.o \ 

$ {GTOBJ} /vcalc.o \ 

$ {GTOBJ} /vignet . o \ 

$ {GTOBJ} /wray. o \ 

$ {GTOBJ} /wrayso . o \ 

$ { GTOB J} /wraysv . o \ 
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$ { GTOBJ} /wspotl . o \ 

$ { GTOBJ} /wspot2 . o \ 

$ {GTOBJ} /ws tat .0 \ 

$ {GTOBJ} /xalign.o \ 

$ { GTOBJ } /yintp . o 

$ { GTEXE } /gtrac : ${FILE} 

$ { CMPL } $ { OPTS } $ { FILE } ${LIBS} - 

include gtmakerules 

clean: $ {GTEXE } /gtrac 

strip $ {GTEXE} /gtrac 


o ${ GTEXE} /gtrac 
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A1.2 gtmakerule Make rule for GRAZTRACE 


########################################################################## 

# makerules: gtmakerules 

# 

# This is the make rules for the graztrace 

########################################################################## 

GTSRC=/home/ chen/src 

GTOBJ=/home/chen/ obj 

CMPL=f 77 

OPTS=-g 

$ {GTOBJ} /calcdb. o : $ { GTSRC } / calcdb . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC} /calcdb. f 
mv calcdb. o ${ GTOBJ} 

$ {GTOBJ} /calwgt . o : $ {GTSRC} /calwgt . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /calwgt. f 
mv calwgt. o ${ GTOBJ} 

$ { GTOBJ } /coord . o : $ { GTSRC } /coord . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /coord. f 
mv coord. o ${ GTOBJ} 

$ {GTOBJ} /del tbl.o : $ {GTSRC} /deltbl . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC}/ deltbl. f 
mv deltbl. o ${ GTOBJ} 

$ { GTOBJ } /dproc . o : $ { GTSRC } /dproc . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /dproc. f 
mv dproc. o ${ GTOBJ} 

$ {GTOBJ} /eescat . o : $ { GTSRC } /eescat . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC}/ eescat. f 
mv eescat. o ${ GTOBJ} 

$ { GTOBJ } /encirc . o : /$ { GTSRC } /encirc . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC} /encirc. f 
mv encirc. o ${ GTOBJ} 

$ { GTOBJ } / focus . o : $ { GTSRC } / focus . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC}/ focus. f 
mv focus. o ${ GTOBJ} 

$ { GTOBJ} /gridl . o : $ { GTSRC } /gridl . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC } /gridl . f 
mv gridl. o ${ GTOBJ} 
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$ { GTOBJ} / grid2 . o : $ { GTSRC } /grid2 . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC }/grid2.f 
mv grid2.o ${ GTOBJ} 

$ {GTOBJ} /main. o :$ {GTSRC} /main. f 

$ { CMPL } -c $ {OPTS } $ {GTSRC} /main. f 
mv main.o $ {GTOBJ} 

$ {GTOBJ} /mcomm. o :${ GTSRC} /mcomm. f 

$ {CMPL} -c $ { OPTS } $ {GTSRC} /mcomm. f 
mv mcomm. o ${ GTOBJ} 

$ { GTOBJ } /metref . o : $ { GTSRC } /metref . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /metref .f 
mv metref. o $ {GTOBJ} 

$ { GTOBJ } /misce . o : $ { GTSRC } /misce . f 

$ { CMPL } -c $ {OPTS } $ {GTSRC} /misce. f 
mv misce. o $ {GTOBJ} 

$ { GTOBJ } /pf ocus . o : $ { GTSRC } /pf ocus . f 

$ { CMPL} -c $ { OPTS } $ {GTSRC} /pf ocus. f 
mv pfocus.o ${ GTOBJ} 

$ { GTOBJ } /rdref . o : $ { GTSRC } /rdref . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /rdref .f 
mv rdref. o $ {GTOBJ} 

$ {GTOBJ} /red. o :$ {GTSRC} /red. f 

$ { CMPL } -c $ {OPTS } $ {GTSRC} /red. f 
mv red.o $ {GTOBJ} 

$ {GTOBJ} /rgene . o : $ { GTSRC } /rgene . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /rgene. f 
mv rgene. o ${ GTOBJ} 

$ { GTOBJ } / rprint . o : $ { GTSRC } /rprint . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC} /rprint. f 
mv rprint. o ${ GTOBJ} 

$ { GTOBJ} /spdiag . o : $ { GTSRC } /spdiag . f 

$ { CMPL } -c $ { OPTS } $ { GTSRC } / spdiag . f 
mv spdiag. o ${ GTOBJ} 

$ { GTOBJ } / splot . o : $ { GTSRC } /splot . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /splot. f 
mv splot. o ${ GTOBJ} 

$ {GTOBJ} / ssrt .o : $ { GTSRC } / ssrt . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /ssrt. f 
mv ssrt.o ${ GTOBJ} 

$ {GTOBJ} /stat.o : $ { GTSRC } / stat . f 
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$ { CMPL } -C $ { OPTS } $ {GTSRC} / stat . f 
mv stat.o ${ GTOBJ} 

$ {GTOBJ} /strace .o : $ { GTSRC }/strace . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} / strace . f 
mv strace. o ${ GTOBJ} 

$ {GTOBJ} /user. o :$ {GTSRC} /user . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /user. f 
mv user.o ${ GTOBJ} 

$ { GTOBJ} /utrace . o : $ { GTSRC } /ut race . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /utrace . f 
mv utrace. o ${ GTOBJ} 

$ {GTOBJ} /vcalc.o : $ { GTSRC }/vcalc. f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /vcalc. f 
mv vcalc.o ${ GTOBJ} 

$ { GTOBJ } /vigne t . o : $ { GTSRC } /vigne t . f 

$ { CMPL } -c $ { OPTS } ${ GTSRC }/vignet.f 
mv vignet.o ${ GTOBJ} 

$ {GTOBJ} /wray.o :$ {GTSRC} /wray. f 

$ { CMPL } -c $ { OPTS } $ {GTSRC } /wray. f 
mv wray.o ${ GTOBJ} 

$ { GTOBJ } /wrayso . o : $ { GTSRC } /wrayso . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /wrayso. f 
mv wrayso.o ${ GTOBJ} 

$ { GTOBJ} /wraysv . o : $ { GTSRC } /wraysv . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /wraysv. f 
mv wraysv. o $ {GTOBJ} 

$ { GTOBJ} /wspotl . o : $ { GTSRC } /wspot 1 . f 

$ { CMPL } -C $ { OPTS } $ {GTSRC} /wspot l.f 
mv wspot l.o ${ GTOBJ} 

$ { GTOBJ} /wspot2 . o : $ { GTSRC } /wspot2 . f 

$ { CMPL } -C $ {OPTS } $ {GTSRC} /wspot 2. f 
mv wspot2.o ${ GTOBJ} 

${ GTOBJ }/wst at .o : $ {GTSRC} /wstat . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /wstat . f 
mv wstat. o $ {GTOBJ} 

$ {GTOBJ} /xalign . o : $ { GTSRC } /xalign . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC}/xalign. f 
mv xalign. o $ {GTOBJ} 

$ { GTOBJ } / yintp . o : $ { GTSRC } / yintp . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /yintp. f 
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mv yintp.o ${GTOBJ} 
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A1.3 Make file for GRAZTRACE User 


## ######################################################################## 

# makefile: ugtmakefile 

# 

# This is the make file for user to use graztrace 
## ######################################################################## 


GTSRC= . 

GTOB J= . 

GTEXE= . 

GTLIB=/home/chen/lib 


LIBS=-L$ { GTLIB } -lgtrac 

CMPL=f 77 

OPTS=-g 

FILE= $ {GTOB J} /main. o \ 

$ {GTOBJ}/user.o 

$ { GTEXE } /ugt rac : ${FILE} 

$ { CMPL } $ { OPTS } $ { FILE } ${LIBS} -o $ {GTEXE} /ugtrac 

${ GTOB J} /main. o: $ {GTSRC} /main. f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /main. f 

$ {GTOBJ} /user . o : $ { GTSRC } /user . f 

$ { CMPL } -c $ { OPTS } $ {GTSRC} /user . f 

clean: $ {GTEXE } /ugtrac 

strip $ {GTEXE} /ugtrac 
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A1.4 makelib User Library Generator (Unix shell script) 


GTLIB=/home/ chen/ lib 

GTOBJ=/home/ chen/ob j 

ar r $ {GTLIB} /libgtrac . a $ { GTOBJ} / calcdb.o \ 
$ { GTOB J } / calwgt . o \ 

$ {GTOBJ} /coord. o \ 

$ {GTOBJ} / deltbl . o \ 

$ { GTOBJ } / dproc . o \ 

$ {GTOBJ} /eescat .o \ 

$ {GTOBJ} /encirc . o \ 

$ {GTOBJ}/ focus. o \ 

$ {GTOBJ}/ gridl .o \ 

$ {GTOBJ} / grid2 . o \ 

$ {GTOBJ} /mcomm. o \ 

$ {GTOBJ} /metref.o \ 

$ {GTOBJ} /misce. o \ 

${ GTOBJ} /pfocus.o \ 

$ { GTOBJ} / rdref . o \ 

${GTOBJ}/red.o \ 

$ {GTOBJ} /rgene.o \ 

$ {GTOBJ} /rprint .o \ 

$ { GTOBJ } / spdiag . o \ 

$ {GTOBJ} /splot.o \ 

$ { GTOBJ} /ssrt . o \ 

$ {GTOBJ} / stat . o \ 

$ {GTOBJ} /strace.o \ 

$ { GTOBJ} /ut race . o \ 

$ { GTOBJ } / vcalc . o \ 

$ {GTOBJ} /vignet .o \ 

${GTOBJ}/wray.o \ 

$ {GTOBJ} /wrayso . o \ 

$ {GTOBJ} /wraysv. o \ 

$ {GTOBJ} /wspotl . o \ 

$ {GTOBJ }/wspot2 .o \ 

$ {GTOBJ} /wstat .o \ 

$ {GTOBJ} /xalign . o \ 

$ {GTOBJ} /yintp. o 

ranlib $ {GTLIB} /libgtrac . a 
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A1.5 user.f Sample User Routine (FORTRAN source code) 


c 

c 

c USER SUBROUTINE FOR SXI TELESCOPE RAY TRACE FOLLOWS 
c 

c 

subroutine user 
trace sxi system 

implicit double precision (a-h,o-z) 

*&JrJc + + ic& + + + + &ir + & + + ^jc*jr + *iiric^j(*icjci'ir + icjcjrjriciricieirjtir'kieJc'k'k'k'k'k-k'k'k'k'ki''kjfjc'k'k'k'k'k'k 

common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim (2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth ( 50 ) , ywidth (50) , dxrect ( 50) , dyrect (50) , threct (50) 

* , zlim (2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy ( 15) , delbet (2,15,50), wgt (15,50), wgtnet (15),effa(15) 

* ,pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51 ) , i chief , i tilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm (50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

dimension enc (500) , frac (100) , rad (100) ,xref (15) , yref (15) 

output list file is default to print. gtrace 
open (6, f ile= ' print . gtrace ' ) 

flag for readin to open system input file 
istat=l 

number of systems to loop through 
nconic=l 

******************************************************************** 
do 900 iel=l,nconic 

read in the prescription for the first element of the HRMA. 
call readin(l, ’presc . sxi . 2 ’ , istat) 
if (istat .ne . 0) go to 900 

modifications 
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ihead (2) =' ' 


parabola and hyperbola surface numbers. 
ip=5 
ih=ll 


modify parabola and hyperbola surface types, 
itype (ip) =' grzcon03 ' 
itype (ih) = ' grzcon03 ' 

reflectivity weight flags and number of energies 
iwgt (ip) =0 
iwgt (ih) =0 
nnrg=l 

ifrom=6 
ito=3 

delbet (1, ito, ip)=delbet (1, ifrom, ip) 
delbet (2, ito, ip) =delbet (2, ifrom, ip) 
delbet (1, ito, ih)=delbet (1, ifrom, ih) 
delbet (2, ito, ih) =delbet (2, ifrom, ih) 
energy (ito) =energy (ifrom) 
nnrg=3 
respace . 
misc. cases 
d=0 . dO 

assume symmetric respace for the time being 
(surface 7 is the finished end of the parabola) 

(surface 8 is to be the position of the 
mid point between the glass ends) 
thick (7) =thick (7) +d/2 .dO 
thick (8) =thick (8) +d/2 .dO 

leave the distance between the mid point between the glass ends ar 

the nominal image plane unchanged. 

(surface 16 is the image plane) 
thick (15) =thick (15) -d/2 .dO 
c 

c finite source distance to first surface 
c misc cases 

c zrange=1700 . d0*12 . d0*25 . 4d0 

c values from source to center distance and various respace errors 
c (t. casey 910129) 
c zrange=1731 . dO* 12 . d0*25 . 4d0 

c nl=l 

c n2=7 

c do 600 i=nl,n2 

c zrange=zrange-thick (i) 

c 600 continue 
c 

c length of element 

size=zlim(2, ip) -zlim(l, ip) 
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c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


elevation of source , n 

e lev=50.d0/3600.d0*pi/180.d0 

azimuth of source 
azim=0 . dO 
azim=pi/ 4 . dO 

azim=pi/2.d0 

azim=0 . 7 5d0*pi 
azim=pi 

azim=7.d0*pi/8.d0 

modify distance to last surface 010d0 
thick (nsurf-1) =thick (nsurf-1) +0 . OlOdU 


tiltll Ih)-.15d0/3600.d0*pi/180.d0 

tilt {2^ ih) = . 15d0/3600 ,d0*pi/180 . dO 

tilt (3, ih)=pi/4.d0 

imove (ih) =1 

irstr (ih) =1 

itilt (ih) =213 

hyperbola decenter and compensating tilt 

decenx=0.d0 
decenx=0 . 254d0 
deceny=0 . dO 
deceny=0 . 254d0 
nl=ih 

n2=nsurf-l , A 

zof f=10069 . 21899 483 571d0 
comlen=zof f +d/ 2 . dO 

do 400 i=nl,n2 
comlen=comlen+ thick ( i ) 

400 continue 

comtx=-dasin (decenx/comlen) 
comty=dasin (deceny/ comlen) 
imove (ih) =1 
irstr (ih) =1 

dcomtx=0.d0 . , A 

dcomtx=. 15d0/3600 . d0*pi/180 . dO 

dcomty=0.d0 . , n 

dcomty=.15d0/3600.d0*pi/180.d0 

disp ( 1 , ih) =decenx 
tilt (2, ih) =comtx+dcomtx 
disp (2, ih)=deceny 
tilt (1, ih) =comty+dcomty 

sag error ^ _ 

sdata (5, ip) --400 .d 7 
sdata (5, ih) =-400 . d-7 
save minimuin radius 
rminsv=r adl im (1,1) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


save zrange 

zrngsv=zrange 

modify convergence criterium 
delta=l . d-7 

ray print flag 
kprint (1) =2 
kprint (2 ) =1 
kprint (3) =ip 
kprint (4)=ih 
kprint (5) =nsurf 

number of field angles 
nfield =2 

do 200 kk=l, nfield 
adjust field angle 

i ^ ( K' eq ‘?! elev=1 -d0/3600.d0*pi/180 dO 
elev=50 * d 0/3600.d0*pi/186 d d0 

v dble(kk 1) *1 .d0/3600. d0*pi/180.d0 


adjust tilt of first surface and 
to simulate field angle entry 

if (kk. eq. 2) then 

tsy=-l. d0/3600. d 0 *pi/l 80 .d 0 

tilt (2,1) =tsv 

zrange=zrngsv/ dcos (dabs (tsv) ) 

imove (1) =1 

endif 

if(kk.eq.3) then 

5 s 7r7o 0 1 ' d0/3600 - d0 *p i/18 °- d o 

tilt (2,1) =tsv 

zrange=zrngsv/ dcos (dabs (tsv) ) 

imove (1) =1 

endif 


zrange 


^ -zJangJ/ distance • 

C ^radlimfl, 1) =z ^ngsv/^zrngsv+size)"* trminsv 

c ********** ******* 7^** J*f*fj***j|*s d ze) 

C set up the common area. *********************** 

call setcom(ierr) 

c print out the syste^o^ 
call rdout (6, idum) 

c c ;rr;;*;;;;r;;r;;;;;*;*;rr*r************‘‘******************* 

c entrance annulus andom ray distribution in 
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c 

ipat=l 
c 

if (ipat.eq.l) then 
c 

mspot=10000 
rmin=radlim(l, 1) 
rmax=r adl im ( 2 , 1 ) 
azmid=0.d0 
delaz=2.d0*pi 
azmin=azmid-delaz/2 . dO 
azmax=azmid+delaz/2 . dO 
irand=0 

call ranset ( irand) 

c call wspotl (mspot, irand, rmin, rmax, azmin, azmax) 
endif 

f *!!*!“!!!!!******************************************************** 

c 
c 


eSt?a“ce 9 a™ulSs y tra °* m0dlfied “ heel spoke distribution in 

ipat=0 

if (ipat.eq. 1) then 

nlong=10000 
naz=l 

rmin=radlim ( 1 , 1) 
rmax=r adl im ( 2 , 1 ) 
azmid=0.d0 

delaz=2 . d0*pi/200 . dO 
delaz=2 .dO*pi 
azmin=azmid-delaz/2 . dO 
azmax=azmid+delaz/2 . dO 

call wspot2 (nlong, naz, rmin, rmax, azmin, azmax) 
endif 


c 

c 

c 

c 

c 

c 

c 

c 

c 


fall weigwHetio “ dified spoke uheel distribution. 

(constant radial and varying azimuthal increments) 
to compare with subroutine rfocs in vetasacr f 
nlong=501 
naz=72 

rmin=radlim(l, 1 ) * (l.dO+l.d-8) 
rmax=radlim (2, 1 ) / ( 1 . dO+1 . d-8 ) 
call gridl (nlong, naz, rmin, rmax) 

r -i- 4 - J, _L J l L i 1 


C + ic ★ ★ ★ ★ ic ★ ★ ★ ★ * ie * * j 


do a ray trace with spoke wheel distribution. 

(all weights set to 1) 

(constant radial and constant azimuthal increments) 
na z — _l 

nlong=839 
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c rmin=radlim(l, 1) * (1 .dO+l .d 8) 

c rmax=radl im (2,1)/ ( 1 . dO+ 1 . d- 8 ) 

o 

c 

c loop over energies 

******* *..*.************************* 

refocus 

*****S?ih*SSS!iiS5^i5?Ji?H**!*L********************************** 
calculate average position and rms 
if (kk.eq. 1) then 
xref (iener) =0 .dO 
yref (iener) =0 .dO 

cal^wstat (iener, xav, yav, wav, wtot, xref (iener) , yref (iener) 

* , foclen, elev) 

if (kk.eq. 1) then , _ ^ . 

c get reference for apparent focal length calculation 

xref (iener) =xav 
yref (iener) =yav 

c ,.,,.???ih*.*****. ************************************************** 

c make unweighted spot diagram 

..**.*** ****************************** 

c calculate encircled energy distribution 
c maximum angle in arc sec for calculation 
amax=2 . dO 

c number of calculation points 

na=500 . . 

c number of fractions for radii calculation 

nf=20 

do 100 i=l , nf 
f rac ( i ) =dble ( i ) / dble (nf ) 

100 continue 

frac (nf ) =f rac (nf ) / (l.dO+l.d-8) 

call encirc (iener, xav, yav, foclen, amax, na, frac, rad, nf , enc 

*****.******************************************** 

c end of energy loop 

c **22*S??Ji?^********************************************************' 

c write out system data and ray data to files 

^***.*** 11 **^**********^********** *********************************** 
c end of field angle loop 

c *522*S2*Ji********************************************************** 

c end of mirror system loop 
900 continue 
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return 

end 
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Section 1. INTRODUCTION 


GRAZTRACE is a high level FORTRAN subroutine library designed for the analysis 
of X-ray telescope optics. GRAZTRACE subroutines are easy to understand and use. 
Users can generate their own analysis program using GRAZTRACE subroutines. 

GRAZTRACE stands for GRAZe ray TRACE. The basic system is a library of 
over 60 FORTRAN subroutines and functions. 

Command mode GRAZTRACE is under development which allows the users to 
interactively use the system. 
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Section 2. PRIMER 


2.1 Summary 

This section includes the following topics: Section 2.2, "Quick Start", explains what 
a basic session GRAZTRACE is, and provides a hands-on example to get you started; 
Section 2.3, "Using GRAZTRACE", contains information about using GRAZTRACE, 
FORTRAN COMPILERS, MAKE and data file format. 


22 Quick Start 

To use GRAZTRACE, users need to write or modify their own main program and 
the user program, main.f and user.f. 

Programs for a basic sample session can be: 


c- 

c 

c 

c 


c 

c 

c 


c 

c 

c 


sample main.f 
program main 

implicit double precision (a-h,o-z) 

open output file for the result 

open ( 6 , f ile= ' sample . gtrace ' ) 

call user 

stop 

end 


sample user.f 

subroutine user 

implicit double precision (a-h,o-z) 
common /syscl/ zrange, elev, azim, foclen, source (3) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Wiiuuwu / *-»j[ r r 

,radlim(2,50) ,dxcirc(50) ,dycirc(50) 

,xwidth(50) ,ywidth(50) ,dxrect(50) ,dyrect(50) ,threct(50) 

, zlim(2 , 50) , adata (25,50) 

, tilt (3, 50) , rmat (3 , 3,50) 

,disp(3 , 50) , thick(50) ,findex(50) 

, sdata(25,50) , delta 
, sp (3,50) , ra (3,50) , spi ( 3 ) , rax (3) 

, energy (15) ,delbet (2 , 15,50) ,wgt(15,50) ,wgtnet(15) ,effa(15) 

, pi 

, imove(50) ,irstr(50) ,iwgt(50) ,nsurf 
,nnrg,kmax,kprint (51) , ichief , itilt(50) 

diaper (50^?iobs^50) ,itype(50) ,imode(50) ,ifdfm(50) ,ihead(20) 
character * 80 ihead,ifdfm 
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non 


character 

dimension 

istat=l 


* 8 itype , imode , iaper , iobs 
enc(500) ,frac(100) ,rad(100) , 


xref (15) ,yref (15) 


readin prescription 


call readin ( 1, 1 sample' , istat) 

call setcom(ierr) 

mspot=10000 

rmin=rradl im ( 1 , 1 ) 

rmax=radl iro (2,1) 

azmid=0 . do 

delaz=2 . 0*pi 

azmin=azmid-delaz/2 . do 
azmax=azmid+delaz/2 . do 

irand=0 

call ranset ( irand) 


C 

C random ray trace 

C call wspot 1 (mspot , irand , rmin , rmax , azmin , azmax) 
iener=l 
C 

C refocus 

call focus (iener, xav,yav,delz) 


Q ^ 

C statistical performance analysis 

C call wstat( iener, xav, yav, wav, wtot 
it yref ( iener) , foclen,elev) 


xref ( iener) , 


C spot diagram 
C 

call spdig (xav , yav, 0) 

amax=2 . do 

na=500 

nf=20 

do 100 i=l, nf 

frac ( i) =dble ( i) /dble (nf ) 

100 continue 

frac(nf) =frac(nf )/ (l.dO+l.d-8) 

C encircled energy distribution 

C call encirc( iener, xav, yav, foelen, a.ax, na, frae, 
* nf, enc, wamax, wtot) 


C . 

q save ray information to file 

call wrayso( 'sample. gtray' ) 

return 

end 


rad, 
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23 Using GRAZTRACE 




2.3.1 Compiler 

compU^^th^iyho^^hen/^^lgtrac' “” C ° mpile ^ pr ° 8ram wi,h ¥11 


m main.f user.f -L/home/chen/lib -Igtrac 


2.32 Make Utility 


“® other simple way to generate user code is "make utilitv " Atw • 
ma,n.f and useri, the users can make their own program whh coLa^ ^ 


make -f ugtmakefile 


Currently, ugtmakefile" is in /home/chen/mk 
name "ugtrac". 


The executable file is generated with the 


23.3 Data File Format 


format ?? r r G * AZTRACE are using the stand; 
format. The first line of the file must be: 


fortran namelist 


$inp 


beginning in column two. Do NOT FOLLOW $inp with a comma. 
The data input can be in any order. The basic format is: 
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PNEUMONIC = v, v, v„ 

where v, is the ith value. Note that the pneumonic is simply its name regardless of 
whether or not it is a single variable or an array variable. Trailing comma is required. 

The last line of the data file must be: 

Send 

beginning in column two. DO NOT FOLLOW Send WITH A COMMA OR 
ANYTHING ELSE. 

Pneumonic definition. 


Pneumonic 

Description 

Format 

zrange 

Object distance 

Double 

elev 

Object elevation 

Double 

azim 

Object azimuth 

Double 

foclen 

Focal length 

Double 

source 



radlim 
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Section 3. USER LIBRARY ROUTINES 


In the GRAZTRACE library, only some of the routines are designed to be called 
by the users directly. It is necessary for users to know only these USER LIBRARY 
ROUTINES to use the system. Other routines are called indirectly. Only the 
GRAZTRACE program developer needs to access the other routines. 


3.1 Data Manipulate Routines 

All data in the system common area can be manipulated by calling the following 
routines: 6 

readin 

setcom 

redout 

wrayso 


3.1.1 readin 

All system data should be read in using readin 
call readin (i, jpresc, istat) 

», unit number to be opened for the file; 

jpresc, data file name; 

1 , proceed to open file and read in; 
istat = 0 , reach the end of file; 

else, read error. 

Purpose: Read in data to common area from file in jpresc using unit i. 
Subroutines called: czero. 
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3.1.2 setcom 


After readin or modification of system data, the data in common area should be 
set up using setcom. setcom (a) set up source positions relative to the undisplaced 
center of first surface in cartesian coordinate( source(l) = x , source(2) = y, source(3) 
z ), and (b) sets rotation matrices from tilts for surfaces with imoves = 1 ( which means 
surface coordinate transformation is subject to the surface). 

call setcom (jerr) 

0, normal; 

jerr = 

1, error. 


Purpose: Set up common data after readin or modification of common data. 


Subroutines called: rstart 
rdfm 


3.13 rdout 

All system data can be written into a file using rdout. The data file has the same 
namelist format which can be later read into the system by readin. 

call rdout(i, istat) 

i, unit number to be opened for the file; 

0, normal; 

istat = 

-1, error. 


Purpose: Write out system common data to unit i. 
Subroutines called: none 
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3.1.4 wrayso 

Ray information from analysis routines can be saved to a file for further analysis 
using wrayso. J 

call wrayso(fname) 

fname, file name for ray data writing, prefix is .gtray. 

Purpose: Write saved ray data to file. 

Subroutine called: none 

Note: The data is unformatted. The contents are as follows: 


nsv, 

number of rays saved; 

nnrg, 

number of energy positions; 

zshift. 

focal shift; 

foclen, 

focal length; 

nhead, 

number of lines for the head description; 

xpsv(i), 

x position of the ith ray, i = l..nsv; 

ypsv(i), 

y position of the ith ray, i = l..nsv; 

dxdzsv(i), 

x direction slop of the ith ray, i = l..nsv; 

dydzsv(i), 

y direction slop of the ith ray, i = l..nsv; 

entx(i), 

x direction incident angle of the ith ray, i = l..nsv; 

enty(i), 

y direction incident angle of the ith ray, i = l..nsv; 

wtsv(j,i), 

weight for the ith ray at the jth energy level, 
i = l..nsv, i = l..nnrg; 

energy (i), 

the ith energy, i = l..nnrg; 

ihead(i), 

the ith head message, i = l..nhead. 
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3.2 Math routines 


Some math routines are available in the library: 

ranset 


3.2.1 ranset 

Before using function ranf to generate uniform distribution random number, 
random number seed should be reset using ranset. wspotl also needs to initialize the 
random number seed irand using ranset. 


call ranset(irand) 

irand, random number seed ( an arbitrary integer). 
Purpose: Reinitialize random number seed. 

Subroutines called: none 


3.3 Performance evaluation routines 

Most commonly used optical system analysis routines are included in the 
GRAZTRACE library: 

wspotl 

wspot2 

focus 

wstat 

spdiag 

encirc 
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33.1 wspotl 


Weighted rays can be traced with rays randomly distributed in the entrance 

annulus using wspotl. 

call wspotl(mspot, irand, rmin, rmax, azmin, azmax) 
mspot, total number of rays; 

irand, random number seed; (reset by ranset before using it in this routine) 

rmin, minimum radius of entrance annulus; 

rmax, maximum radius of entrance annulus; 

azmin, minimum azimuth of entrance section of the annulus; 

azmax, maximum azimuth of entrance section of the annulus. 

Purpose: Randomly trace weighted rays in entrance annulus. 

Subroutines called: ssrti 

wsvi 

ranf 

cnvout 

wray 

wraysv 

wsvrst 

Note: 1. Random rays are traced and effective area weights effa(i) are accumulated. 

2. The ray information from the last surface is saved for further analysis. 

3. The results are printed out. 
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3 .22 wspot2 

Weighted rays can be traced with modified wheel-spoked distribution in the entrance 
annulus using wspot2. 

call wspot2(nlong, naz, rmin, rmax, azmin, azmax) 

nlong, number of rays in radius direction; 

naz, number of rays in azimuth direction, 

rmin, minimum radius of entrance annulus; 

rmax, maximum radius of entrance annulus; 

azmin, minimum azimuth of entrance section of the annulus, 

azmax, maximum azimuth of entrance section of the annulus. 

Purpose: Wheel spokely trace the weighted rays in entrance annulus. 

Subroutines called: ssrti 
wsvi 
cnvout 
wray 
wraysv 

Note: 1. Wheel-spoked rays are traced and the effective area weights effa(i) are 
accumulated. 

2 The ray information from the last surface is saved for further analysis. 
3. The results are printed out. 
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3.3.3 focus 


The system can be refocused to the best focal position for a given energy level 
using focus. 

call focus(iener, xav, yav, delz) 
iener, energy position; 
xav, new x average; 

yav new y average; 

deltz, difference between best focus z value and initial z value. 

Purpose: Focus spot in storage array for a given energy position. 

Subroutines called: pfocus 

Note: At a given energy position, focus finds the best focus and sends back the new 
centroid coordinates xav, yav and the required focal shift deltz. 

3.3.4 wstat 

System performance can be statistically evaluated using wstat. 

call wstatfiener, xav, yav, wav, wtot, xref, fl, ell) 

iener, energy position; 

xav, x average; 

yav, y average; 

wav, weights average; 

wtot, weights total; 

xref, x reference; 

yref, y reference; 

fl, assumed focal length; 
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ell, assumed field angle. 


Purpose: Calculate the average and rms of stored rays at given energy position. 
Subroutines called: stat 

Note: 1. Input is required are reference center coordinates xref and yref, assumed 
focal length fl, and assumed field angle ell. 

2. Results are sent back and printed out. 

3.3.5 spdiag 

System performance can be checked by spot diagram using spdiag. 

call spdiag(xcen, ycen, npoint) 

xcen, x value of assumed center for diagram; 

ycen, y value of assumed center for diagram; 

npoint, ray number to be used in diagram. 

Purpose: Make up line printer spot diagram from the storage array using first npoint 

rays. 

Subroutines called: splot 

3.3.6 encirc 

System performance can be quantitatively examined by encircled energy using 

encirc. 

call encirc (iener, xcen, ycen, ft, amax, na, frac, rad, nf, enc, wamax, wtot) 
energy pointer; 

x of assumed center of encircled energy distribution; 
y of assumed center of encircled energy distribution; 
assumed focal length; 


iener, 

xcen, 

ycen, 

ft, 
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amax, 


maximum angle considered (arc sec) for encircled energy 
distribution calculation; 


na, 

frac, 

red, 

nf, 

enc, 

wamax, 

wtot, 


number of radius increments for encircled energy distribution 
calculation; 

encircled energy fractions for radii calculations; 
radii values calculated for nf fraction values input; 
number of encircled energy fractions; 

encircled energy distribution (at na radius values up to amax); 
weight total up to radius amax; 
total weight sum. 


Purpose: Calculate the encircled energy distribution for energy iener. 

Subroutine called: none 

Note: 1. Inputs required are iener, xcen, ycen, ft, amax, na, frac, and nf. 

2. Outputs sent back are rad, enc, wamax, and wtot. The results are also 

printed out. 
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Section 4. SYSTEM PROGRAM DEVELOPER LIBRARY ROUTINES 

System program developer library routines are not directly called by the users. 
Only GRAZTRACE program developer need to know those routines in order to debug 
or upgrade the program. 

4.1 Data manipulating routines 

4.1.1 czero 
call czero 

Purpose: Zero the common area. 

Subroutines called: none 

Note: 1. Set O.dO to 6510 double precision variables; 

2. Set 0 to 258 integers; 

3. Set ’ ’ to 200 character *8 strings; 

4. Set ’ ’ to 70 character*80 strings; 

5. Common name is syscl. 

4.1.2 rstart 

call rstart (ierr) 

0, normal; 

ierr = 

1, error. 

Purpose: Set up rotation matrices for surface with imove = 1 (which means surface 

is subject to tilt). 

Subroutines called: matab 

Note: 1. Set up rotation matrices following the order given by itilt or 1,2,3 ( when 
itilt = 0). 
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2. itilt has the format of an integer, each digit presets the tilt order. For 
example 123 means order 1,2,3. 

3. Results in rmat(ij,k), 

j,k, surface dimensions; 

i, surface number. 

4.13 rdfm 

Deformation information can be read from the file to common area using rdfm. 
call rdfm(iurdfm) 

iurdfm, unit number for deformation file. 

Purpose: Read in deformation values to common area from the deformation file. 

Subroutine called: prtdfm 

Note: 1. Deformation file name is in ifdfm. 

2. Namelist format has been used. 


4.1.4 prtdfm 

call prtdfm (debug, nsurf) 

true, dump out the derived deformations; 

debug = 

false, no derived deformations, 
nsurf, number of surfaces. 

Purpose: Print out deformation storage data. 

Subroutines called: none 
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4.1.5 rprint 


call rprint(lsurf, irstat, ktr) 

lsurf, surface number to be printed, 

= 0, normal; 

irstat > 0, vignetting; 

< 0, ray error; 

ktr, index of print control array kprint. 
Purpose: Print out ray surface information. 

Subroutines called: none. 


42 Math routines 


4.2.1 ranf 

call ranf (irand) 

irand, random number seed. 

Purpose: Generate random numbers. 

Subroutines called: none. 

Note: 1. Random numbers are uniformly distributed in the range (0,1). 
2 . Random seed irand should be reset by ranset(irand). 
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4.2.2 matab 


call matab(a,b,c,nl,n2,n3,d) 
a (nl, n2), first matrix to be multiplied; 
b (n2, n3), second matrix to be multiplied; 
c (nl, n3), result matrix; 

nl, row number of the first matrix; 

" 2 ’ mau-k” nUmber ° f ‘ he mat ™’ r ° W number of the second 

n3, column number of the second matrix; 

d (nl, n3), temporary matrix. 

Purpose: Multiply the first matrix by the second matrix 

c * a X b. 

Subroutines called: none 
4.2.3 cnvout 

call cnvout(spl, ral, sp2, ra2, rmat, disp) 

spl, input position; 

ral, input direction consine; 

sp2, output position; 

ra2, output direction consines; 

rmat, transformation matrix; 

disp, displacement array. 

Purpose: Transform out of location coordinates. 

Subroutines called: none. 
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4 2.4 cnvin 


call cnvin(spl, ral, sp2, ra2, rmat, disp) 

spl, input position; 

ral, input direction consine; 

sp2, output position; 

ra2, output direction consines; 

rmat, transformation matrix; 

disp, displacement array. 

Purpose: Transform out of location coordinates. 

Subroutines called: none. 

4.2.5 trfin 

call trfin (is) 

is, surface number to be transformed. 

Purpose: Transform into local coordinates. 

Subroutine called: none. 

Note: Ray positions sp(,is) and direction cosines ra(,is) are updated. 

42.6 trfout 

call trfout(is) 

is, surface number to be transformed. 

Purpose: Transform out of local coordinates. 

Subroutines called: none. 
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Note. Positions sp(,is) and direction cosines ia(,is) are updated. 

4.2.7 cnvin 

call cnvin(spl, ral, sp2, ra2, rmat, disp) 

spl, input position; 

ral, input direction; 

sp2, output position; 

ra2, output direction; 

rmat, transformation matrix; 

disp, displacement array. 

Purpose: Transform into local coordinates. 

Subroutines called: none 

4.2.8 rotate 

call rotate(xp, yp, ang, x, y) 
xp, original x coordinate; 
yp, original y coordinate; 
ang, angle to be rotated; 

x, new x coordinate; 

y, new y coordinate. 

Purpose: Rotate coordinates. 

Subroutines called: none 
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4.3 Performance evaluation routines 


43.1 ssrti 

call ssrti 

Purpose: Initialize ray counters for pass, vignetting, and error. 

Subroutines called: none 

Note: ssrti set pass = 0, nvig =0, nerr = 0. 

433 nusvi 

call nusvi 

Purpose: Initialize storage ray counter and zshift. 

Subroutines called: none. 

Note: nusvi set nsv = 0, zshift = 0. 

4.33 wray 

call wray(efact, irstat) 

efact, initial effective area weight for ray 

0, normal; 

irstat = 

else, ray error. 

Purpose: Trace ray and accumulate reflectivity weights and effective area weight for 

ray. 

Subroutines called: cnvin 

ssrt 

calwgt 

rprint 
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4.3.4 ssrt 


call ssrt(is, irstat) 

is, surface number to be traced to; 

0, successful ray; 

irstat = 1 , vignetted ray; 

-1, ray error. 

Purpose: Trace a single ray. 

Subroutines called: trfin 

strace 

strac02 

vignet 

trfout 


4.3.5 strace 

call strace(isterr, is) 

0, normal; 

isterr = 

else, ray error. 

is - surface number to be traced to. 

Purpose: Trace a ray for reflection or dummy surface. 

Subroutines called: utraci 

Note: Ray positions sp(,is) and direction cosine ra(,is) are updated. 

43.6 utrace 

call utrace 

Purpose: Calculate function f and gradient fx, fy, fz for surface 
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Subroutines called: none. 
Note: 1. Input: 


x, y, 

isurf or n, 

itype(n) 

ifcalc, 


position; 

surface number 

surface parameters 

calculate function value if ifcalc =1 


2. Output: 

f interception function value; 

fit, fy, fz, gradient of function 

isferr, non zero if error occurs. 


4.3.7 strc02 

call strc02(isterr, is) 

0, normal; 

isterr = 

else, ray error. 

is, surface number to be traced to. 

Purpose: Trace ray through deformated surface. 

Subroutines called: utrc02. 

Note: Ray positions sp(,is) and ray direction cosines ra(,is) are updated. 
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4.3.8 utrac02 


call utrac02 

Purpose: Calculate function f and gradient fx, fz for deformated surface. 

Subroutines called: dfm02 

Note: 1. Input: 

y, position; 

isurf or n, surface number; 
itype(n), surface type; 
sdata(...,n), surface parameters 

1, calculate function value; 

ifcalc = 2, calculate gradient; 

3, calculate both. 

2. Output: 

£ function value; 

fx, fy, fz, gradient of the function. 

4.3.9 dfm02 

call dfm02 

Purpose: Compute contribution of surface errors radius error and gradient of radius 

Subroutines called: none. 

N °‘ e: value!' differenCe betWee " ,lK ray P0Si,i ° n radius value ‘1* surfece radius 
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4.3.10 vignet 

call vignet (ivig, is) 

0, normal 

ivig = 

else, vignetting. 

is, surface number to be checked. 

Purpose: Check for surface vignetting. 

Subroutines called: rotate 

4.3.11 calwgt.f 

call calwgt.f(lsurf) 

Isurf, surface number to be accumulated. 

Purpose: Accumulate metal reflectivity weights for applicable surface and update ray 

effective area weight. 

Subroutines called: metref. 

4.3.12 metref 

call metref(anginc, delta, beta, rs, rp) 
anginc, incident angle in radians; 

delta, beta, reflectivity data; 

rs » reflectivity for parallel polarization; 

reflectivity for perpendicular polarization. 

Purpose: Calculate the reflectivity as a function of incident angle and complex index 

of refraction for metals. 

Subroutines called: none. 

Note: 1. Input: anginc, delta, beta. 
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2. Output: rs, rp. 


4.3.13 wraysv 

call wraysv(ifill) 

1, ray number saved = 200,000; 

iffll = 

0, less than 200,000 rays saved. 

Purpose: Save last surface ray information. 

Subroutine called: cnvin 

Note: Ray information saved in common rsavel with format: 


xpsv(200,000), 

ypsv(200,000), 

dxdzsv(200,000), 

dydzsv(200,000), 

entx(200,000), 

enty(200,000), 

wtsv( 15,2000,000), 


x position; 
y position; 
x direction slope; 
y direction slope; 
x direction incident angle; 
y direction incident angle; 
effective area weights. 


4.3.14 wsvrst 

call wsvrst (factor) 
factor, scale factor. 

Purpose: Reset the effective area weights 

Subroutines called: none. 
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Note: wsvrst loops through rays and energy levels to scale the saved weights. 
wtsv(j,i) = wtsvQ',i)*factor 

4.3.15 pfocus 

call pfocus(x,y,ck,cl,w,n,xloc,yIoc,zloc) 

x »y> positions of rays at initial z value; 

ck,cl, dx/dz, dy/dz for each ray; 

n, number of rays; 

w, ray weights; 

xloc, yloc, positions of best focus in x-y plane; 

zloc, delta z to best focus from initial z value; 

x »y> position of rays at new z value. 

Purpose: Find weighted planar best focus using rays from geometric ray trace. 

Subroutines called: none. 

Note: x, y, ck, cl, w, and n are input. 

43.16 stat 

call stat(x, y, w, n, xav, yav, xrms, yrms, rms, wtot, wav, wrms, xmin, xmax, ymin, 
ymax, wmin, wmax) 

x > y, ray intercepts; 

w, ray weights; 

n, number of rays; 

xav, yav, x, y value at centroid 

xrms, yrms, rms values of x and y about centroid; 
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wtot, 

sum of weights; 

wav, 

average value of wights; 

wrms, 

rms deviation of weights 

xmin, 

minimum x value; 

xmax, 

maximum x value; 

ymin, 

minimum y value; 

ymax, 

maximum y value; 

wmin, 

minimum weight value; 

wmax, 

maximum weight value. 


Purpose: Calculate the weighted spot average and rms. 

Subroutines called: none. 

Note: x, y, w, and n are inputs, the rest are outputs. 

43.17 splot 

call splot(npts,f,x) 

npts, ray number to be plotted; 

f, x, values of plot data x, y. 

Purpose: On-line printer plot for spot diagram. 

Subroutines called: none. 
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APPENDIX 3 

CONTOUR AND 3-D POINT SPREAD FUNCTION 




Appendix 3 Contour and 3-D Point Spread Function 


Appendix 3 Plot Routines for Contour and 3-D Point Spread Function 


A3.1 rayplot.f Test Plot (FORTRAN source code) 


£+** + ** + + ** + * + + + * + * + ** + * + + + + + * + + * + **+'+'* + *'** + ********'*'************ 

C 

c file: rayplot.f 
c 

c test contour and point spread function plot 
c dis771inks rayplot.f pltcnt.f pltpsf.f 

c 

c plot ray file "ray. gtray" 
c 

£****+*****+* + + ** + * + * + •*•*■*•**■•*■■*•*•*• + * + ***** + ****•* ++******** + ****** + ** 
program main 
call wrayri ( ' ray . gtray ’ ) 
call pltcnt (10000, 0 . 0, 0 ) 

call pltpsf (10000, 0 . 0, 0, 60 . , 30 . ) 
stop 
end 

subroutine wrayri (f name) 
c 

c read in ray save data from ray file 
c 

c fname is the file prefix for the .gtray file. 

c 

c 

implicit double precision (a-h,o-z) 
c ******* *****+***************★+**********++*****+***************+**** 
common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50 ) , ywidth (50 ) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim (2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50 ) , thick (50 ) , f index (50) 

* , sdata (25, 50 ) , delta 

* , sp(3,50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50) ,wgt (15,50) ,wgtnet (15) ,effa (15) 

* , pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* ,nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper , iobs 

c ******+***********+*************+**+**********************+*++*****+ 
common /rsavel/ xpsv (200000) , ypsv (200000) , dxdzsv (200000) 

* ,dydzsv (200000) , entx (200000) , enty (200000) , wtsv (15, 200000 ) 

* ,zshift,nsv 

c *****+**+****+********+***+*******+**************+***+************** 
character * 80 fname 
c open the ray file 
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c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


iuray=7 

call fildf (iuray, fname, ' gtray unformatted ') 
open (iuray, file=fname, form= ' unformatted' ) 
read in the ray data 
nhead=20 

read (iuray) nsv, nnrg, zshift , foclen, nhead 

read (iuray) (xpsv (i) , ypsv (i) , dxdzsv (i) , dydzsv (i) , entx (i ) 

* , enty (i) , (wtsv (j , i) , j=l, nnrg) , i=l, nsv) , (energy (i ), i=l, nnrg) 

* , (ihead (i) , i=l, nhead) 

print check 

write (*, *) nsv, nnrg, zshift , foclen, nhead 

write (*, *) (xpsv (i) , ypsv(i) , dxdzsv (i) , dydzsv (i) , entx (i) 

* , enty (i) , (wtsv( j , i) , j=l, nnrg) , i=l, nsv) , (energy (i) , i=l, nnrg) 

* , (ihead (i) , i=l, nhead) 


return 

end 
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A3.2 pltcnt.f Contour Plot (FORTRAN source code) 


subroutine pltcnt (mspot, size, ngrid) 
c 

c plot intensity contour 
c 

c mspot, total number of rays 

c size, half width of the plot region in arc sec 
c ngrid, grid number of the plot 
c 

real rmatl (250, 250) 

if (ngrid .eq. 0) ngrid = 50 

call pltcntl (mspot, size, ngrid, rmatl ) 

return 

end 

subroutine pltcntl (mspot, size, ngrid, rmatl) 
c 

implicit double precision (a-h,o-z) 

Q* ********************* * ***** * *+**** + + + ***+ + *+ +*+■* + ** + +** + * ********** * 

common /syscl/ zrange, elev, azim, foclen, source (3 ) 

* , radlim (2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50 ) , ywidth (50 ) , dxrect (50) , dyrect (50 ) , threct (50 ) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50 ) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* ,sp(3,50),ra(3,50), spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50), wgt (15,50), wgtnet (15) , effa (15) 

* r pi 

* , imove (50),irstr(50), iwgt (50 ) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

q* •*•*•■*•* + ilr ★ * ilr -Jr-Jr •*■ + + * + **★•*■**■*■■*■ * * + * -A” *■ 'k-k-k'k-tc'k-k'k'k -k ilr ilr ilr ilr ilr Jr + * + Ar ★ Ar * * Ar * Ar * Ar * Ar * 

common /rsavel/ xpsv (200000 ), ypsv (200000 ), dxdzsv (200000 ) 

* , dydzsv (200000 ) ,entx (2 00000) , enty (200000) ,wtsv( 15, 200000) 

* ,zshift,nsv 

+ * + + + + + + + + + + + + + + + + + + + + + + + + + 

c 

c single presion for plot routine 
c 

real datmin, datmax, xmin, xmax, ymin, ymax, xcen, ycen 

* , xlen, ylen, xstp, ystp, xphy, yphy, xarea, yarea, zincr 

* ,enr ,peak ,size, foci 
character * 80 capt 

real rmatl (ngrid, ngrid) 

COMMON /PAKRAY/ IPKRAY(400) 

COMMON /MYCONX/ DATMIN, DATMAX 
c data ixdim/100/, iydim/100/ 
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c 

ixdim=ngrid 

iydim=ngrid 

c 

c loop over energies 
c 

q********************************************************************** 

do 100, n=l, nnrg 
c 
c 

c centroid 
c 

swx=0 

swy=0 

sw=0 

do k=l,nsv 

swx=swx+wtsv (n, k) *xpsv ( k) 
swy=swy+wtsv (n, k) *ypsv(k) 
sw=sw+wtsv (n, k) 
end do 
xcen=swx/sw 
ycen=swy/sw 
c 

c find plot range 
c 

xlen=2*foclen*size*4 . 84813e-6 

if (size .It. 1.0e-20) then 

xmin=xpsv ( 1 ) 

xmax=xpsv(l) 

ymin=ypsv ( 1 ) 

ymax=ypsv ( 1 ) 

do i=l, nsv 

xmin=dminl (xmin, xpsv (i) ) 
xmax=dmaxl (xmax, xpsv (i) ) 
ymin=dminl (ymin, ypsv(i) ) 
ymax=dmaxl (ymax, ypsv (i) ) 
end do 
c 

c round to good number 
c 

xlen=2 . *amaxl ( abs (xmin-xcen) , abs (xmax-xcen) 

* , abs (ymin-ycen) , abs (ymax-ycen) ) 
c size=xlen/ (2*foclen*4 . 84813e-6) 

c del=size/dble (ixdim) 

c k=dlogl0 (del) 

c if (del .It . l.dO) k=k-l 

c q=10 . d0**k 

c c=del/q 

c ic = c 

c cp = ic 

c if (cp.lt.c) cp = cp +l.d0 

c size = ixdim * cp*q 

end if 
c 

ylen = xlen 
xmin=xcen-0 . 5*xlen 
xmax=xcen+0 . 5*xlen 
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ymin=ycen-0 . 5*ylen 
yiuax=ycen+0 . 5*ylen 
c 

c tick interval 
c 

xstp = xlen / 8 . 
ystp = ylen / 8 . 
c 

c prepare plot matrix 
c 

do i=l,ixdim 
do j=l,iydim 
rmatl (i, j ) =0 . 
end do 
end do 
c 

c accumulate energy 
c 

do k=l, nsv 

i= (xpsv(k) -xmin) * (ixdim-1) /xlen + 1 
j= (ypsv(k) -ymin) * (iydim-1) /ylen + 1 
if ((i .ge. 1) .and. (i . le . ixdim) 

+ .and. (j .ge. 1) .and. (j .le. iydim) ) then 

rmatl (i, j ) =rmatl (i, j ) +wtsv (n, k) *energy (n) 
end if 
end do 
c 

c scale to intensity 
c 

datmin=rmatl (1,1) *ixdim*iydim/ (xlen*ylen) 
datmax=datmin 
do i=l, ixdim 
do j=l, iydim 

rmatl (i, j ) =rmatl (i, j ) *ixdim*iydim/ (xlen*ylen) 

datmax=amaxl (datmax, rmatl (i, j ) ) 

datmin=aminl (datmin, rmatl (i, j ) ) 

end do 

end do 

peak=datmax 

if (energy (n) .It. 0) peak = datmin 
c 

£+ + + + + ± + + ± + + ± + + + + + + +r± + * + + + -k + + + * + * + * + *** + * + * + ***** + ***** + ** + * + * + + + * + 

C 

c plot 
c 

CALL VT240 

C NOMINATE A DEVICE 

CALL PAGE (11., 8. 5) 

C ASSIGN PLOT PAGE SIZE 

CALL HWROT ( 'AUTO' ) 

C WANT HORIZONTAL LAYOUT FOR HARDCOPY 

c XPHY =1.4 

xphy = 2.25 
YPHY =1.0 

DEFINE PHYSICAL ORIGIN 

XAREA =8.2 
xarea = 6.5 
YAREA =6.5 
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DEFINE SUBPLOT DIMENSIONS (AREA2D) 


** DRAW THE CAPTION 

CALL HEIGHT (.14) 

SET CHARACTER HEIGHT 

CALL DUPLX 

SET CHARACTER STYLE 
MAXLIN = LINEST (IPKRAY, 400, 80) 

INIT PACK ARRAY 


focl=foclen 
enr=energy (n) 

write (capt, *) 'focl=' , foci, ' rays=',mspot 
* , ' energy= ' , enr, ' $ ' 
call lines (capt, ipkray, 1 ) 

write (capt, *) 'peak=' ,peak, ' ctr=' ,xcen,ycen, ' $ ' 
call lines (capt, ipkray, 2) 

CALL LINES (' graztrace$ ', IPKRAY, 1) 

NLINES = 2 

NUMBER OF LINES IN CAPTION 

YPHY = YPHY+1.5 

INCREMENT Y PHYSICAL ORIGIN 
YAREA = YAREA-1 . 5 

DECREMENT Y AREA TO FIT CAPTION 
CALL PHYSOR(XPHY, YPHY) 

DEFINE PHYSICAL ORIGIN 
CALL AREA2D(XAREA, YAREA) 

DEFINE PLOT AREA (VIEWPORT) 

CALL ALNSTY ( .5, .5) 

CAPTION ALIGNMENT IS CENTER, CENTER 
CALL STORY (IPKRAY, NLINES, XAREA/2. , -YPHY/2. ) 

PLOT CAPTION TEXT 


* GET DATA MINIMUM AND MAXIMUM 


DATMIN = RMAT1 (1,1) 

DATMAX = RMAT1 (1,1) 

INITIALIZE DATA MIN AND MAX 

DO 80 J=1 , IYDIM 

LOOP THROUGH EACH COLUMN 
DO 70 1=1 , IXDIM 

LOOP THROUGH EACH ROW OF THIS COLUMN 
DATMIN = AMIN1 (DATMIN, RMAT1 (I, J) ) 

NEW MINIMUM? 

DATMAX = AMAX1 (DATMAX, RMAT1 (I, J) ) 

NEW MAXIMUM? 

70 CONTINUE 

80 CONTINUE 

END DATA SCAN LOOP 

CALL FRAME 

C FRAME THE SUBPLOT AREA 

c XMIN = -1 

c XSTP = .25 

c XMAX = 1 

c YMIN = -1 
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YSTP = .25 
YMAX = 1 

DEFINE AXES MIN, STEP, MAX 
ESTABLISH AXES LIMITS 
CALL XNAME ( ' x -axis$',100) 

FORCE X AXIS TO BE DRAWN, LABEL IT 
CALL YNAMECy -axis$',100) 

FORCE Y AXIS TO BE DRAWN, LABEL IT 
CALL GRAF (XMIN, XSTP, XMAX, YMIN, YSTP, YMAX) 

AXES SET-UP (WINDOW) 

BRING DISSPLA TO LEVEL 3 

ZINCR = 1 

zincr = (datmax-datmin) / 10. 

USER-SUPPLIED Z-LEVEL INCREMENT 
(CONTOUR INTERVAL) 

en CALL RASPLN(2.5) 

SMOOTH CONTOUR LINES 
CALL CONMAK (RMAT1, IXDIM, IYDIM, zincr) 

GENERATE CONTOUR LINES FROM SURFACE DATA. 

call coni in (0, 'solid ' , ' nolabels ',2,10) 
call conlin ( 1, ' chndsh ' , ' nolabels ',1,4) 
call conlin (2 , ' chndot ' , ' nolabels ',1,5) 
call conlin (3, ' dash ' , ' nolabels ',1,4) 
call conlin ( 4 , ' dot ' , ' nolabels ',1,3) 
call contur (5, ' nolabels ',' draw' ) 

CALL CONLIN (0, 'MYCNLN' , 'LABELS' , 3,10) 

SET CONTOUR LINE ATTRIBUTES FOR HIGHEST 
PRIORITY (MAJOR) LINES 

DO 500 1=1,3 

500 CALL CONLIN (I, 'MYCNLN' , 'NOLABELS' , 1, 9) 

SET LINE ATTRIBUTES FOR REMAINING 3, LOWER 
PRIORITY (MINOR) LINES 

CALL CONANG ( 90 . ) 

SET MAXIMUM ANGLE OF LINE CURVATURE FOR WHICH 
LABELS WILL NOT BE OMITTED 
CALL CONTUR (4, 'LABELS' , 'DRAW' ) 

DRAW THE CONTOUR LINES WITH BLANKED LABELS 

CALL ENDPL(O) 

TERMINATE THE PLOT 
CALL THE APPLICATION SUBROUTINE 
CALL RESET ('ALL') 

CALL DONE PL 

END DISSPLA 


end of energy loop 

0 continue 
return 
end 


SUBROUTINE MYCNLN (RARAY, IARAY, LCHAR) 
implicit double precision (a-h,o-z) 


USER-SUPPLIED ESCAPE ROUTINE WILL BE CALLED BY DISSPLA 
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C FOR EACH CONTOUR LEVEL — USED FOR COLOR CONTROL OF THE 
C CONTOUR LINES . 

C 

Q + + *** + * + * + + + + + * + + + + ** + + + *** + **** + + + +r + + Jr * + * -ir + -ie + + 

DIMENSION RARAY ( 2 ) , IARAY ( 9 ) 

CHARACTERS LCHAR 

COMMON /MYCONX/ DATMIN, DATMAX 

HUE = (RARAY (1) -DATMIN) / (DATMAX- DATMIN) 

C GET THIS Z-LEVEL'S PERCENTAGE OF TOTAL SCALE 

HUE = HUES 5+0. 5 

SCALE BY HUE RANGE (.5 — > 3) 

AND ADD TO HUE BASE (0.5) 

CALL HWHSI (HUE, 1. , 1. ) 

C SET COLOR FOR THIS CONTOUR LEVEL 

RETURN 
END 
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A3. 3 pltpsf 3-D Point Spread Function Plot (FORTRAN source code) 


subroutine pltpsf (mspot, size, ngrid, azm, ele) 
c 

c plot point spread function 
c 

c mspot, total number of rays 

c size, half width of the plot regin in arc sec 
c ngrid, grid number of the plot 

c azm, azimuth of the view (60.0 yields good perspective) 
c ele, elevation of the view (30.0 recommended) 
c 

£*+★**+*+****+***+********+*****+**+***+**+**+********■*★***+*+* 
real rmatl (250, 250) 
if (ngrid .eq. 0) ngrid = 50 
call pltpsf 1 (mspot, size, ngrid, azm, ele, rmatl ) 
return 
end 

subroutine pltpsfl (mspot, size, ngrid, azm, ele, rmatl) 
c 

implicit double precision (a-h,o-z) 

Q* + **+* + + * + + ** + * + + * + + ± * + * + ± + + + + + + * + + + + + + + + + + + + + + + + + + + +. + + + + + + + + * + + + + + + 

common / syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim (2, 50 ) , dxcirc (50 ) , dycirc (50 ) 

* , xwidth (50) , ywidth (50 ) , dxrect (50 ) , dyrect (50) , threct (50 ) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3,3,50) 

* , disp (3,50) , thick (50) , f index (50) 

* , sdata (25, 50 ) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3 ) , rai (3 ) 

* , energy (15) , delbet (2,15,50) , wgt (15, 50) ,wgtnet (15) , effa (15) 

* , pi 

* ,imove (50) , irstr (50) , iwgt (50) ,nsurf 

* , nnrg, kmax, kprint (51 ) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
£* + + + *** + + + * + + + + + + * + + + + + + + + + + + + + + + + + + + + * + + * + + + + + + + + + + + + + + + + + + +. + + + + +, + + 
common /rsavel/ xpsv (200000 ), ypsv (200000 ), dxdzsv (200000 ) 

* , dydzsv (200000) , entx (200000) , enty (200000) , wtsv (15, 200000 ) 

* ,zshift,nsv 

I****************************************************** ************** 


real datmin, datmax, xmin, xmax, ymin, ymax, xcen, ycen 

* , xlen, ylen, xstp, ystp, xphy, yphy, xarea, yarea 

* , work, lshad, phi, theta, radius, xvol, yvol, zvol 

* , enr, peak, size, foci, azm, ele 
character *80 capt 

real rmatl (ngrid, ngrid) 
c DIMENSION WORK (2) ,XP(1000) ,YP(1000) 

dimension work (2) 
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DIMENSION LSHAD (2) 

COMMON /PAKRAY/ IPKRAY(400) 

C 

c DATA PHI/-60 . / , THETA/30./, RADIUS/60./ 

DATA RADIUS/60./ 

DATA LSHAD /45150, 135150/ 

C SHADE PATTERNS FOR THE FRONT & SIDE 

C OF THE "SLAB" 

DATA IBELOW/ ' BELO’ / 
c data ixdim/100/, iydim/100/ 

c 

phi = -azm 
theta = ele 
ixdim = ngrid 
iydim = ngrid 

+++++++++*+*+ ± +++ ± +++++ ± *++****+*+***+***+*+****+*+++****++**++* ++* 
c 

c loop over energies 
c 

C 

do 100, n=l, nnrg 
c 

c centroid 
c 

swx=0 

swy=0 

sw=0 

do k=l,nsv 

swx=swx+wtsv (n, k) *xpsv (k) 
swy=swy+wtsv (n, k) *ypsv (k) 
sw=sw+wtsv (n, k) 
end do 
xcen=swx/ sw 
ycen=swy/ sw 
c 

c find plot range 
c 

xlen=2*foclen*size ,lr 4 . 84813e-6 

if (size .It. 1.0e-20) then 

xmin=xpsv(l) 

xmax=xpsv ( 1 ) 

ymin=ypsv(l) 

ymax=ypsv(l) 

do i=l, nsv 

xmin=dminl (xmin, xpsv (i) ) 
xmax=dmaxl (xmax,xpsv(i) ) 
ymin=dminl (ymin, ypsv(i) ) 
ymax=dmaxl (ymax, ypsv(i) ) 
end do 
c 

c round to good number 
c 

xlen=2 . *amaxl (abs (xmin-xcen) , abs (xmax-xcen) 

* , abs (ymin-ycen) , abs (ymax-ycen) ) 
c del = xlen/dble (ixdim) 

c k=dlogl0 (del) 

c if (del .It. l.dO) k=k-l 
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c q=10 . dO**k 

c c=del/q 

c ic=c 

c cp = ic 

c if (cp.lt. c) cp = cp +I.d0 

c xlen=ixdim*cp*q 

end if 
c 

ylen=xlen 
xmin=xcen- . 5*xlen 
xmax=xcen+ . 5 *xlen 
ymin=ycen- . 5*ylen 
ymax=ycen+ . 5*ylen 
c 

c tick, interval 
c 

xstp = xlen / 8 . 
ystp = ylen / 8 . 
c 

c prepare plot matrix 
c 

do i=l, ixdim 
do j=l,iydim 
rmatl (i, j ) =0 . 
end do 
end do 
c 

c accumulate energy 
c 

do k=l, nsv 

i= (xpsv(k) -xmin) * (ixdim-1) /xlen + 1 

j= (ypsv (k) -ymin) * ( iydim- 1) /ylen + 1 
if ((i .ge. 1) .and. (i .le. ixdim) 

* .and. (j .ge. 1) .and. (j .le. iydim) ) then 

rmatl (i, j ) =rmatl (i, j ) +wtsv(n, k) ^energy (n) 
c 

end if 
end do 
c 

c scale to intensity 
c 

datmin=rmatl (1,1) *ixdim*iydim/ (xlen*ylen) 
datmax=datmin 
do i=l, ixdim 
do j=l, iydim 

rmatl (i, j )=rmatl (i, j ) *ixdim*iydim/ (xlen*ylen) 
datmax=amaxl (datmax, rmatl (i, j ) ) 
datmin=aminl (datmin, rmatl (i, j ) ) 
end do 
end do 

peak = datmax 

if (energy (n) .It. 0) peak = datmin 
c 

c **+**+*+****** + +**+******+*+**+**++****+***********++*+**+********* 

c 

c plot 
c 

CALL VT240 
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C NOMINATE A DEVICE 

CALL PAGE (11., 8. 5 ) 

C ASSIGN PLOT PAGE SIZE 

CALL HWROT ( ' AUTO ' ) 

C WANT HORIZONTAL LAYOUT FOR HARDCOPY 

c CALL PLOT (RMAT1, NX, NY) 

chen 
C 

C** SET UP PLOTTING ENVIRONMENT 
C 

XPHY =1.4 
YPHY = 1. 

C 

XAREA =8.2 
YAREA =6.5 
C 

XVOL = 12. 

YVOL = 12. 

ZVOL = 12. 

C 
C 
C 
C 
c 

c draw caption 
c 

call height ( . 14 ) 
call duplx 

maxlin = linest (ipkray, 400, 80) 
foci = foclen 
enr = energy (n) 

write (capt, *) ' focl= ' , foci, ' rays=',mspot 
* , ? energy=' , enr, ' $ ' 

call lines (capt, ipkray, 1 ) 

write (capt,*) 'peak= ' , peak, ' ctr=' ,xcen,ycen, '$' 
call lines (capt, ipkray, 2 ) 
nlines =2 
yphy=yphy+l . 5 
yarea=yarea-l . 5 
c 

CALL PHYSOR (XPHY, YPHY) 

C DEFINE PHYSICAL ORIGIN 

CALL AREA2 D ( XAREA , YAREA ) 

C DEFINE PLOT AREA (VIEWPORT) 

c 

call alnsty ( . 5, .5) 

call story (ipkray, nlines, xarea/2 . , -yphy/2. ) 


c 


c 

XMIN = 0 

c 

XSTP = 1 

c 

XMAX = 10 

c 

YMIN = 0 

c 

YSTP = 1 

c 

YMAX = 10 


C DEFINE AXES MIN, STEP, MAX 

C 

C** OBTAIN THE LOWEST AND HIGHEST VALUES FROM THE DATA GIVEN.. 


DEFAULT PHYSICAL ORIGIN 


DEFAULT PHYSICAL AREA 


WORKBOX DIMENSIONS ARE EQUAL, 
RESULTING IN A CUBE SHAPED WORKBOX. 
CHANGE THESE AS NECESSARY TO CONFORM 
TO THE DATA. a 
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c 

c 

c 

C 

c 

C 

c 

C 

c 

C 

c 

C 

clO 

C 

c20 


ZMIN = rMATl (1,1) 

ZMAX = rMATl (1,1) 

I NIT STARTING VARS FOR SEARCH 
DO 20 II = 1 , IXDIM 

DO FOR EACH X 
DO 10 JJ = 1, IYDIM 

DO FOR EACH Y 

ZMAX = AMAX1 (ZMAX, rMATl (II, JJ) ) 

RETAIN HIGHEST VALUE 
ZMIN = AMIN1 (ZMIN, rMATl (II, JJ) ) 

RETAIN LOWEST VALUE 

CONTINUE 

NEXT Y 

CONTINUE 

NEXT X 


** DETERMINE SUITABLE Z AXIS MIN, MAX, STEP FROM THE HIGH/LOW 
** VALUES EXTRACTED FROM THE DATA. 


WORK ( 1 ) = datMAX 
WORK (2) = datMIN 

CALL RNDLIN (WORK, 2 , ZVOL/2 . , datMIN, ZSTP, datMAX) 
DETERMINE LIMITS, STEP 

** PREPARE TO DRAW THE PLOT 


CALL VOLM3D (XVOL, YVOL, ZVOL) 

SET UP VOLUME PROPORTIONS 
CALL VUANGL (PHI, THETA, RADIUS) 

SET THE VIEWPOINT 

CALL BLSUR 


BLANK THE SURFACE AFTER IT IS DRAWN 

CALL HEIGHT (.15) 

CALL DUPLX 

SET CHAR HEIGHT & STYLE 

CALL INTAXS 

INTEGERIZE AXIS LABELS 

CALL ZAXANG ( 0 . ) 

Z AXIS LABELS ARE HORIZONTAL 


* DRAW THE SURFACE . . 


CALL X3NAME ( ' x$ ' , 100 ) 

C FORCE X AXIS TO BE DRAWN, LABEL IT 

CALL Y3NAME ( ' y$ ' , 1 0 0 ) 

C FORCE Y AXIS TO BE DRAWN, LABEL IT 

CALL Z3NAME ( ' intensity$ ' , 100 ) 

C FORCE Z AXIS TO BE DRAWN, LABEL IT 

CALL GRAF3D (XMIN, XSTP, XMAX, YMIN, YSTP, YMAX, datMIN, ZSTP, datMAX) 

C DEFINE USER AXIS SYSTEM (WINDOW) 

CALL SETCLR ( ' CYAN ' ) 

C SET COLOR OF SURFACE 

CALL SURVIS ( 'TOP' ) 

C ONLY DRAW TOP OF SURFACE 

IXPTS = 1 
IYPTS = 1 

C DRAW ONE SURFACE LINE PER DATA POINT 
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c 

c 

c 

c 


** 


c 

C 


c 

c 


C 


c 

c 

c 

C 

c25 

C 


c 

C 


c 

C 


c 

C 


c 

C 

c 

C 

c 

C 

c 

c** 

c 

c 

c 

C 

C 

c 

C 

c 

c 

c 

c 

C 


c 

C 

c30 

C 


c 


C 

C 

C 

C 

c 


■** 


c 

c 


c 

c 


C 


c 


CALL SURMAT ( rMATl , IXPTS, IXDIM, IYPTS, IYDIM, 0) 

DRAW THE SURFACE 

SHADE THE FRONT FACE OF THE "SLAB" 

XINC = (XMAX-XMIN) /FLOAT (IXDIM- 1) 

GET X INCREMENT SIZE 

XX = XMIN 

DO 25 II = 1, IXDIM 

DO FOR EACH X POINT 

XP(II) = XX 

YP (II) = rMATl (II, 1) 

XX = XX+XINC 

BUMP X INCREMENT 

CONTINUE 

GET POINTS THAT DEFINE THE CURVE 
CALL GRFITI ( 0 . , 0 . , 0 . , XVOL, 0.,0.,0.,0., ZVOL) 

DEFINE GRFITI PLANE FOR FRONT FACE 
CALL AREA2D (XVOL, ZVOL) 

SET SUBPLOT DIMENSIONS (VIEWPORT) 

CALL GRAF (XMIN, XSTP, XMAX, datMIN, ZSTP, datMAX) 

DEFINE USER AXIS SYSTEM (WINDOW) 

CALL SHDPAT (LSHAD (1) ) 

SET SHADE PATTERN 

CALL SHDCRV (XP, YP, IXDIM, 0, 0, IBELOW) 

SHADE THE AREA 

CALL END3GR(0) 

END THIS GRFITI PLANE 

BLANK THE FRONT FACE OF THE SLAB WHERE WE JUST SHADED.. 

XX = XMIN 

CALL RELPT3 (XMAX, YMIN, ZMIN, XP (1 ) , YP (1 ) ) 

PROJECT COORDS OF LOWER-CENTER POINT 
OF THE WORKBOX 

CALL RELPT3 (XMIN, YMIN, ZMIN,XP (2) , YP{2) ) 

PROJECT COORDS OF LOWER-LEFT POINT 
OF THE WORKBOX 
DO 30 II = 1, IXDIM 

DO FOR EACH X POINT IN MATRIX 
CALL RELPT3 (XX, YMIN, rMATl (II, 1) ,XP (II+2) , YP (II+2) ) 
PROJECT EACH POINT FROM 3D -> 2D 

XX - XX+XINC 

BUMP X INCREMENT 

CONTINUE 

NEXT X POINT 
CALL BLPOLY (XP, YP, IXDIM+2, 1 . ) 

BLANK THE FRONT AREA 
(AND OUTLINE IT) 

SHADE THE RIGHT SIDE OF THE "SLAB" 

XINC = (YMAX-YMIN) /FLOAT (IYDIM-1) 

GET X INCREMENT SIZE 

XX = YMIN 

DO 40 II = 1, IYDIM 

DO FOR EACH Y POINT 

XP(II) = XX 
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c 

c 


C 

c40 

C 


c 

C 

c 

C 


c 

C 

c 

C 

c 

C 


c 

C 

C 

c** 

c 

c 

c 

C 

C 

c 

C 

C 

c 

C 


c 

C 

c 

C 

c50 

C 

c 

C 

C 

C** 


YP(II) = rMATl (IXDIM, II) 

XX = XX+XINC 

BUMP X INCREMENT 

CONTINUE 

GET POINTS THAT DEFINE THE CURVE 
CALL GRFITI (XVOL, 0 . , 0 . , XVOL, YVOL, 0 . , XVOL, 0 . , ZVOL) 

DEFINE GRFITI PLANE FOR RIGHT SIDE 
CALL AREA2 D ( YVOL , ZVOL ) 

SET SUBPLOT DIMENSIONS (VIEWPORT) 

CALL GRAF (YMIN, YSTP, YMAX, datMIN, ZSTP, datMAX) 

DEFINE USER AXIS SYSTEM (WINDOW) 

CALL SHDPAT (LSHAD (2) ) 

SET SHADE PATTERN 

CALL SHDCRV (XP, YP, IYDIM, 0, 0, IBELOW) 

SHADE THE AREA 

CALL END3GR(0) 

END THIS GRFITI PLANE 

BLANK THE RIGHT SIDE OF THE SLAB WHERE WE JUST SHADED.. 

YY = YMIN 

CALL RELPT3(XMAX, YMAX, datMIN, XP(1) ,YP(1) ) 

PROJECT COORDS OF LOWER RIGHT POINT 
OF THE WORKBOX 

CALL RELPT3 (XMAX, YMIN, datMIN, XP (2) , YP ( 2 ) ) 

PROJECT COORDS OF LOWER CENTER POINT 
OF THE WORKBOX 
DO 50 II = 1, IYDIM 

DO FOR EACH POINT IN Y 

CALL RELPT3 (XMAX, YY, rMATl (IXDIM, II) , XP (II+2 ), YP (II+2 ) ) 
PROJECT EACH POINT FROM 3D -> 2D 

YY = YY+XINC 

BUMP Y INCREMENT 

CONTINUE 

NEXT Y POINT 
CALL BLPOLY (XP, YP, IYDIM+2 , 1 . ) 

BLANK THE RIGHT SIDE 

DRAW GRID LINES ON THE LEFT SIDE OF THE PLOT.. 


C 

C 

C 

C 

C 

C 

C 

C 

c +* 

C 

C 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


NEWCLR ( ' FORE ' ) 

SET COLOR TO FOREGROUND 
GRFITI (0 . , 0 . , 0 . , 0 . , YVOL, 0. , 0. , 0. , ZVOL) 

DEFINE GRFITI PLANE ON LEFT SIDE 
AREA2D (YVOL, ZVOL) 

SET SUBPLOT DIMENSIONS (VIEWPORT) 
GRAF (0. , 1. , 1. , datMIN, ZSTP, datMAX) 

DEFINE USER AXIS SYSTEM (WINDOW) 


GRID (0,1) 

GRID (IN Y DIR ONLY) 

END3GR(0) 

END Y-Z PLANE (LEFT SIDE) 


DRAW GRID LINES ON THE RIGHT SIDE OF THE PLOT.. 


CALL GRFITI (0 . , YVOL, 0 . , XVOL, YVOL, 0 . , 0 . , YVOL, ZVOL) 
DEFINE GRFITI PLANE ON RIGHT SIDE 


CALL AREA2 D ( XVOL , Z VOL ) 
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c 

c 

c 

c 

c 

c 

chen 

C 


CALL 

CALL 

CALL 

CALL 

CALL 


SET SUBPLOT DIMENSIONS (VIEWPORT] 
GRAF (0 . , 1 . , 1 . , datMIN, ZSTP, datMAX) 

DEFINE USER AXIS SYSTEM (WINDOW) 

GRID (0,1) 

GRID (IN Y DIR ONLY) 

END3GR(0) 

END THE PLOT ON RIGHT SIDE 
RESET ( ’ BLNKS ' ) 

TURN OFF ALL BLANKED AREAS 

ENDPL (0) 

END THE CURRENT PLOT 


CALL THE APPLICATION SUBROUTINE 
CALL RESET ('ALL’) 

CALL DONEPL 


C END DISSPLA 

C 

C IF HERE, HAD ERROR OPENING DATA FILE 
C 

c 111 CONTINUE 
c WRITE (6, 100) 

clOO FORMAT (IX, ' ERROR OPENING DATA FILE') 
C WRITE TO TERMINAL 

c GOTO 9999 

C 

C IF HERE, HIT EOF 
C 

c888 CONTINUE 

c WRITE (6,200) 

c200 FORMAT (IX, 'END OF FILE') 

C WRITE TO TERMINAL 

c GOTO 9999 

C 

C IF HERE, HAD ERROR READING FILE 
C 

c999 CONTINUE 

c WRITE (6, 300) 

c300 FORMAT (IX, 'ERROR READING DATA FILE') 

C WRITE TO TERMINAL 

C 

C PROGRAM END 
C 

c9999 CONTINUE 

c STOP 

100 continue 


return 


END 
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A3. 4 pltmakefile Makefile for Plot Routines 


# makefile: pltmakefile 


FILE= ravplot . o pltcnt.f pltpsf.f 

testplot : $ { FILE} ; dis771inks ${FILE} -o testplot 


rayplot . o: rayplot. 
pltcnt.o: pltcnt.f; 
pltpsf.o: pltpsf.f; 


f; f 77 -c rayplot. 
f77 -c pltcnt.f 
f 77 -c pltpsf.f 


f 
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GRAZTRACE 

X-ray Optical Analysis Program 
COMMAND MODE 
User Manual 




CONTENTS 


Section 1. 

Introduction 

Section 2. 

Command Format 

Section 3. 

Quick Start 

Section 4. 

Command Reference 

4.1 Data manipulating 

4.2 Performance evaluation 

4.3 System parameter 

4.4 Utility 




Section 1. INTRODUCTION 


Command Mode GRAZTRACE allows the users to interactively use the program. 
Command structure and format are similar to CODEV. Commands cover data 
manipulating, performance evaluation, internal parameter inquiry, and the utility 
commands. 

Built in editor EDI allows the users to edit the system prescription without leaving 
the program. The operating system command shell SYS is also available. 



Section 2. COMMAND FORMAT 


The format of the command line is the same as in CODEV. 

2.1 Command Syntax 
Command lines have the general form: 

COMMAND QUALIFIERS DATA ! COMMENT 

particularly: 

COMMAND 

COMMAND DATA 

COMMAND INDEX(INDICES) DATA. 

Blanks are delimiters. Leading blanks and extra spaces are acceptable. 

Command lines may be: 

— Stacked on one lines by putting semi-colons (;) between the command 
lines 

— Commented by using an exclamation mark(l); all characters following the 
(!) on that line will be ignored. 


2.1.1 Command 

First 3 characters of the string are recognized. Additional characters may be 
added to 3 character commands as desired for readability. The command string is not 
case sensitive. 


2.1.2 Qualifiers 

Index qualifiers are used to specify the surface number, field number, etc. Up to 
three dimensional array indices are allowed. 


2.1.3 Data 


— Numeric data . 

Integers or floating point values, with or without leading sign (+,-) or 
leading zeros or power of ten exponents are accepted. 


— Character string 

Any number of alphanumeric characters with or without being enclosed 
in single (’) or double (") quotes. 

— Question mark (?) 

Using question mark (?) in data field allows the user to check the current 
value of the variable. 


2.1.4 Comment 

— Any string of characters beginning with an exclamation mark (!). 
— A comment may be an entire line starting with ! 


2.1.5 Error processing 

The command interpreter will prompt for the correct command format when any 
error has been input in the command line. 


2.1.6 Some examples of the Syntax are: 

ZRA 2.0E20 
ZRAnge 2.0E20 
ZRA ? 

SOU 1 1 
Source 1 1 
Source ? 

! This is a Comment 

SAV scriptl .tmp 
SAVE scriptl .tmp 


RES scriptl .tmp 
Restore scriptl .tmp 


SPO;GO 


EDI 

EDIT 

LIS 

list 

LEN ! clear data buffer 
2.2 Command Summary 

More than 60 commands have been furnished in the command interpreter. 
Command sets consists of excutable commands, single field data commands, one 
dimensional array data commands, two dimensional array data commands, three 
dimensional array data commands, and one dimmensional character string data 
commands. 

2.2.1 List of commands 
Executable commands 

LEN clear data buffer for new system 
RES restore data buffer from file 
SAV save data from data buffer to file 
RSV save raytrace data to file 
LIS list prescription 
EDI screen edit data buffer 
WSP random weighted ray trace 
WS2 modified wheel spoke raytrace 
GRI trace rays on a modified grid 
GR2 trace rays on a grid 
RSI single ray trace 


FCS refocus 



WST average position and rms 

SPO spot diagram 

RAD encircled energy distribution 

GO excute the option 

CAN cancel all inputs to this option 

HEL help (typing ? in command will also get the same help) 

SYS system command 

EXI exiting program 

Single field data commands 

ZRA zrange (source distance) 

ELE elev (source elevation) 

AZI azmi (source azimuth) 

FOC foclen (system focal length) 

DET delta (convergence criterion) 

SUR nsurf (number of total surfaces) 

NRG nnrg (number of total energy levels) 

MAX kmax (maximum iterations for intercept) 

PAS npass (number of rays passed) 

VIG nvig (number of rays vignetted) 

ERR nerr (number of rays failed) 

AZM azmid (azimuth middle point) 

DAZ delaz (range of azimuth) 

NRA mspot (number of rays) 



IEN iener (current energy level) 

XCE xav (x center) 

YCE yav (y center) 

AMA amax (maximum angle in RAD analysis) 
NFR nf (number of fractions in RAD analysis) 

One dimensional array data commands 
SOU source (source position) 

DXC dxcirc (obscuration radius x) 

DYC dycirc (obscuration radius y) 

XWI xwidth (square aperture width x) 

YWI ywidth (square aperture height y) 

DXR dxrect (rectangular obscuration width x) 
DYR dyrect (rectangular obscuration height y) 
THR threct (rectangular obscuration angle) 
THI thick (surface saparation) 

IND findex (surface index) 

ENE energy (energy value) 

EFF effa (effective area accumulation) 

MOV imove (surface tilt flag) 

RST irstr (surface restore flag) 

WGT iwgt (surface reflectivity flag) 

PRI kprint (surface ray print flag) 

ITI itilt (surface tilt sequence) 


Two dimensional array data commands 

RLI radlim (minimum and maximum radiii of the surface) 
ADA adata 

TIL tilt (surface tilt data) 

DIS disp (surface displacement data) 

SDA sdata (surface data) 

Three dimensional data array commands 
MAT rmat (rotation matrix) 

DEB delbet ( reflectivity data) 

One dimensional character string data commands 
TIT title (surface header information) 

APE aperture (surface frame type) 

OBS obscuration (surface obscuration type) 

TYP type (surface type) 

MOD mode (surface ray trace mode) 

FDF ifdfm (deformation file name) 


More commands will be incorporated later on, based on the feedback from the users. 



Section 3 QUICK START 


This section contains a detailed and realistic "sample session" in GRAZTRACE 
command mode. This sample session will give user a quick start to get familiar with the 

GRAZTRACE program. 

3.1 Using Command mode GRAZTRACE 

The program can be invoked by typing GT2. The command mode prompt 
GTRACE> will show up. Key in any command interactively, followed by a carriage return 
< Enter >. To quit the program, use the Exit command. The program will prompt the 
user to confirm before exiting the program. 


3.2 A Sample Session 
zorro{chen}44> GT2 


************************ 
* * 

* GrazTrace * 

* * 
************************ 


GTRACE>RES sample ! restore from file "sample" 
GTRACE>WSP ! random ray trace option 


WSP>GO ! execute the option 

1 1000 successful rays in wspotl, 

random ray distribution on first surface annulus 

rmin= 0.7505025549956299E+02, rmax= 0.76401 70861 803300E+ 02 
azmin (radians) = -0.3141592653589793E+01, azmax (radians) = 

0.3141592653589793E+01 
field angle (radians) = 0.0000000000000000E+00 
azimuth (radians) = O.OOOOOOOOOOOOOOOOE+OO 


0 rays were vignetted or obscured 
0 rays failed in ssrt 


energy(1)= -0.1000000000000000E+01, effective area = 0.643021 9044059306E+ 03 
energy( 2) = 0.2770000000000000E + 00, effective area = 0.4770593063472806E + 03 
energy ( 3) = 0.5728000000000000E + 00, effective area = 0.4832782607539592E + 03 

GTRACE>FCS ! refocus option 

FCS>GO ! execute the option 

weighted planar focus: energy( 1)= -0.1000000000000000E+01 
number of rays= 1000 

*** stored rays modified *** 

delta z = -0.54667771 39285604 E-1 1 , netzshift = -0.54667771 39285604E-11 
new x average = -0.8423862330255359E-16, new y average = 

0. 84008341 38655648 E-1 5 

GTRACE > WST ! average position and rms option 
WST>GO ! execute the option 

length statistics for: energy ( 1)= -0.1000000000000000E+01 

number of rays = 1000, field angle (radians) = 0.0000000000000000E+00 

net zshift = -0.54667771 39285604E-11 

x average -0.8423862330255359E-16, y average = 0.84008341 38655648E-1 5 

xrms = 0.201 1815720717621 E-1 3, yrms = 0.1974284384504887E-13 

rms = 0.281872335021 1297E-1 3 

xmin= -0.711 7447022322689E-1 3, xmax= 0.737705871 1339266 E-1 3 
ymin= -0.70815361 15041 01 4E-1 3, ymax= 0.63007547461 66225E-1 3 
weight sum= 0.643021 9044059306E+ 03 
weight average = 0.643021 9044059307E+ 00 

weight rms= O.OOOOOOOOOOOOOOOOE+OO 
wmin= 0.6430219044059191 E+ 00, wmax= 0.643021 90440591 91 E + 00 


arc sec statistics for: energy ( 1)= -0.1000000000000000E+01 

assumed focal length = 0.656483231 2844800E+ 03, number of rays 1000 

x average (arc sec) = -0.26467489931 19960E-1 3 

y average (arc sec) = 0.263951 361 336891 6E-1 2 

xrms (arc sec) = 0.6321 056807905900E-1 1 

yrms (arc sec) = 0.6203134621577281 E-1 1 

rms (arc sec) = 0.8856333231 2071 58E-11 


C -Z 



GTRACE>SPO ! spot diagram option 


SPO>NRA1000! set ray number 1000 
SPO > GO ! excute the option 


1 spot diagram: first 1000 rays of 1000 stored 

assumed center: x = -0.8423862330255359E-16, y = 0.84008341 38655648E-1 5 
Press < Enter > to continue 


0 x-axis 


0 . 810E-13 
0 . 720E-13 
0. 630E-13 
0 . 540E-13 
0.450E-13 
0 . 360E-13 
0 . 270E-13 
0 . 180E-13 
0 . 900E-14 

0.000E+00 

—0 . 900E-14 
-0.180E-13 
-0.270E-13 
-0 . 360E-13 
-0.450E-13 
-0.540E-13 
-0 . 630E-13 
-0.72OE-13 
-0 . 810E-13 

L 

y-axis -0. 134344E-12 


I 

* 

* I * 

* *** 

* * ** * * 

** ********** 

** ************** ** 

* ************** *** 
********************* 

—********************* 

* ******************* 

* ******************** 

** *************** 

* **************** 

* * ********* ** 

* ***J* ** * * 

* * 

I* ** 

I 

M U 

-0.474399E-14 0.124856E-12 


GTRACE>ZRA ? ! check z range 


zrange = 1.0000000000000D+50 


GTRACE > ZRA 1 0000 ! try to change z range 
GTRACE>ZRA ? ! check it again 
zrange = 10000.0000000000 

GTRACE >FOC ? ! check focal length 
foclen = 656.48323128448 


GTRACE > EXI exit the program 
EXITING THE PROGRAM ? (Y/N)Y 
zorro{chen}45> 



Section 4 COMMAND REFERENCE 


4.1 Data Manipulating Commands 



ENTERING/CHANGING DATA 


Manipulate system structural data. 
COMMAND MNEMONICS (alphabetical) 


AZI 

APE 

DAZ 

DEB 

DIS 

DXC 

DYC 

DXR 

DYR 

ELE 

ENE 

FDF 

FOC 

IND 

ITI 

MOD 

MOV 

NRG 

OBS 

RLI 

RST 

SDA 

SOU 

SUR 

TIL 

TIT 

TYP 

THR 

THI 

WGT 

XWI 

YWI 

ZRA 





THE TASK — Re-starting for New Lens 


Command Syntax 

jj Screen Prompt 

Explanation 

II L£N | 


Declares that the following entries are for a new 
system, rather than a modification to the old. 
Initializes defaults for a new system. All old system 
data are destroyed. LEN is not necessary prior to 
restoring a lens from the file. 


GRAZTRACE 


5-X 





ENTERING/CHANGING DATA 


THE TASK — Entering/Changing Data 


Command Syntax 


Screen Prompt 


AZI azim 


APE surf num iaper 


Explanation 



Set source azimuth angle 


Declare surface frame type 
iaper — character string (*80) 
surf num — surface number 


DAZ delaz 


Set azimuth range 


DEB delb num iener surf num delb val 



Input surface reflectivity data (a, p) 


delb num — reflectivity number 
iener — energy level 
surfjium — surface number 
delb val — delbet value 


= ( ,o 
\2J 


DIS dec num surf num dec value 



Set displacement data 

1 , X dec 

dec num — decenter number = 

2, Y dec 


3, Z dec 

surfjium — surface number 
dec val — decenter value 



DXC surf num radius X 



DYC surf num radius Y 



Set obscuration radius X 
surf_num — Surface number 
radius x — radius X 


Set obscuration radius Y 
surfjium — surface number 
radius y — radius y 






DXR surf num rect X 


Set obscuration width X 
surf_num — surface number 
rect x — width X 



FOC foclen 

Check or overwrite focal length 

foclen — system focal length 

IND surf num findex 

Input surface index 

findex — surface index 

ITI itilt 

Define tilt sequence 

itilt — surface tilt sequence (e.g., 123 for 1 ,2,3) 

MOD imode 

Define surface ray trace mode 

imode — surface ray trace mode 




MOV surf num imove 


NRG nnrg 


OBS surf number iobs 


Set surface tilt flag 
surf_num — surface number 1 ^ 
imove — surface tilt flag = Q ’ nQt ^ 


Declare total energy level number 
nnrg — total energy level number 


Define surface obscuration type 
surf_num — surface number 
iobs — surface obscuration type 


radlim_val 


Set minimum and maximum radii of the surface 

surf num — surface number 

1 minimum radius 

radlim_num — radii numbers = 
radlim_val — radlim value 

2 maximum radius 


ADA surf num adata num data 


Input surface error 
surf_num — surface number 
adata_num — surface error number 
adata — surface error 


RST surf num irstr 


SDA surf num sdata num sdata 


Set surface restore flag 


surf num — surface number 


irstr — surface restore flag = 

0, not restore 

1, restore 

sdata 


Input surface data 
surf_num — surface number 
sdata_num — surface data number 
sdata — surface data 




sou source num source pos 



SUR nsurf 



Define source position relative to undisplaced center of first 
surface 

1 , x 

source_num — source number = 2 , y 

3 , z 

source pos — source position value 


Define total number of surfaces 
nsurf — total number of surfaces 


TIL tilt num surf num tilt val 



TIT surf num ihead 



TYP surf num itype 



THR surf num threct 



THI surf num thick 



WGT surf num iwgt 



Input surface tilt data 
tilt_num — tilt number 
surf_num — surface number 
tilt val — surface tilt value 


Set surface description 
surfjium — surface number 
ihead — surface head information 


Define surface type 
surfjium — surface number 
itype — surface type 


Set angle of obscuration rectangle 
surfjium — surface number 
threct — ang le of obscuration rectangle 


Input surface separation 
surfjium — surface number 
thick — surface separation 


Set surface reflectivity weight flag 
surfjium — surface number 
iwgt — surface reflectivity weight flag 


XWI surf-num xwidth 



YWI surf_num ywidth 


Input rectangular aperture width x 
surfjium — surface number 
xwidth — aperture width x 


Input rectangular aperture height y 
surfjium — surface number 
ywidth — aperture height y 


ZRA range 



Set source distance to the first surface 
zrange — source distance 


SAVING/RESTORING DATA 


COMMAND MNEMONICS (alphabetical) 
RES SAV 

DATA INPUT DESCRIPTION 


Save & Restore Data 



R 

RSV saves raytrace data as well as s 

DATA INPUT DESCRIPTION 

Command Syntax 

Screen Prompt 


RSV [filspec] 


Explanation 


DISPLAYING DATA 


LISTING OF DATA 


I Command Syntax 

1 Screen Prompt 

Explanation | 

II us 


List all lens data 


GRAZTRACE 


5-X 




4.2 Performance Evaluation Commands 


WSP 


RANDOM RAY TRACE (WSP) 


WSP traces nra successful rays randomly arranged on the first surface annulus at local Z 0. 
Intercepts, slopes and effective area weights are stored for the last surface for each ray. 


COMMAND MNEMONICS (alphabetical) 
AZM DAZ NRA 


^ATA IKIDI IT nF^RIPTION 




WS2 


MODIFIED WHEEL SPOKE RAY TRACE (WS2) 

WS2 traces modified wheel spoke rays arranged on the first surface annulus at local Z=0. 
Intercepts, slopes and effective area weights are stored for the last surface for each ray. 


COMMAND MNEMONICS (alphabetical) 


AZM DAZ NLO NAZ 

DATA INPUT DESCRIPTION 


Command Syntax 

Screen Prompt 

Explanation 

Default 

II AZM azimuth middle angle 



Set azimuth middle point 

0 

II DAZ delta azimuth angle || 

II 

Set azimuth range 

2n 

I NLO radial points 




Set radial points for wheel spoke rays 

100 

| NAZ azimuthal points | 


Set azimuthal points for wheel spoke 
rays 

72 


GRAZTRACE 


5 



GRI 


TRACE RAYS ON A MODIFIED GRID (GRI) 

GRI traces rays on a grid with constant radial and varying azimuthal increments on the first 
surface annulus at local Z=0. Intercepts, slopes and effective area weights are stored for the 
last surface for each ray. Ray weights are set to 1 . 


COMMAND MNEMONICS (alphabetical) 


AZM DAZ NLO NAZ 

DATA INPUT DESCRIPTION 


Command Syntax 

I Screen Prompt 

Explanation 

Default 1 

| AZM azimuth middle angle || 



Set azimuth middle point 

0 

II DAZ delta azimus angle 




Set azimuth range 

2rr 

II NLO number of rays jj 



Set number of rays along the radius 

^0 

II NAZ number of rays [| 


Set maximum number of rays around the 
annuals 

72 


GRAZTRACE 


5 








GR2 


TRACE RAYS ON A GRID (GR2) 

GR2 traces rays on a grid with constant radial and azimuthal increments on the first surface 
annulus at local Z=0. Intercepts, slopes and effective area weights are stored for the last 
surface for each ray. Ray weights are set to 1 . 


COMMAND MNEMONICS (alphabetical) 


AZM DAZ NLO NAZ 

DATA INPUT DESCRIPTION 


Command Syntax 

Screen Prompt 

Explanation 

Default 

AZM azimuth middle ang 

, 


Set azimuth middle point 

• 

1 DAZ delta azimuth angle 

— 

Set azimuth range 

- 

1 NLO radial points J 

— 

Set number of rays along the radius 

J22 

II NAZ azimuthal points II 


Set number of rays around the annuals 

72 


GRAZTRACE 


5 



FCS 


REFOCUS (FCS) 

FCS refocuses the system. 

COMMAND MNEMONICS (alphabetical) 

IEN 

DATA INPUT DESCRIPTION 











WST 


AVERAGE POSITION AND RMS (WST) 
WST calculate average position and rms 


COMMAND MNEMONICS (alphabetical) 


IEN 

DATA INPUT DESCRIPTION 


| Command Syntax 

| Screen Prompt 

Explanation 

Default 

| IEN energy level 



Cancel the default set and set desired 
energy level. 

1 


GRAZTRACE 


5-X 










SPO 


SPOT DIAGRAM (SPO) 

SPO generates plots of ray interceptions with the image surface to represent image 
characteristics. 


COMMAND MNEMONICS (alphabetical) 


XCE, YCE, NRA 

DATA INPUT DESCRIPTION 


Command Syntax 

I Screen Prompt 

Explanation 

Default 

1 XCE center of X j| 

| Center coordinate X 

Override center coordinate X 

Current average X || 

| YCE center of Y 

|| Center coordinate Y 

Center coordinate Y 

Current average Y || 

I NRA number of rays 

Number of rays for 
calculation 

— 

Cancel the default set and set desired 
ray number 

1000 


GRAZTRACE 


5X 












RAD 


ENCIRCLED ENERGY (RAD) 

RAD computes the radial energy distribution — the diameters in the image within which fixed 
percentages of light energy are contained. 

COMMAND MNEMONICS (alphabetical) 

ama ien nfr nra XCE yce 


DATA INPUT DESCRIPTION 


Command Syntax 

1 Screen Prompt 

Explanation 

Default 

II AMA ANGLE (ARC SEC) J 

Maximum angle in arc 
sec for calculation 

Cancel the default set and set desired 
angle 

2.0 

IEN energy level 



Energy level 

Cancel the default set and set desired 
level 

1 

| NFR number-of-fractions 



1 Number of fractions for 
H radii calculation 

Cancel the default set and set desired 
number 

20 

NRA number of rays 



Number of rays for 
calculation 

Set desired ray number 

500 

XCE center of X 


H Center coordinate X 

Override center coordinate X 

Current average X 

i YCE center of Y II 

| Center coordinate Y 

Center coordinate Y 

| Current average Y |] 


GRAZTRACE 


5-X 



?, GO, CAN, EXI 


COMMAND MNEMONICS (alphabetical) 
? CAN EXI GO 


DATA INPUT DESCRIPTION 


Command Syntax 

|| Screen Prompt 

Explanation || 

* 

1 

? in data field entry will allow to check current value 

l«2 II 


Execute the option using all previously entered option 
inputs and then return control to the command level 

ICAN 


Cancel all inputs to this option and return control to 
the command level 

1 EXI 


Exit from GRAZTRACE to the operating system. When 
EXI is typed in, a query is issued requiring a Yes or No 
answer (Y or N); a Y will cancel any option you are in 
and complete the exit. (Default is N.) 


GRAZTRACE 


5-X 








43 System Parameter Commands 



SYSTEM CONTROL PARAMETERS 


Set system control parameter 

COMMAND MNEMONICS (alphabetical) 
DET MAX PRI 


THE TASK — Set Control Parameters 


Command Syntax 

Screen Prompt 


DET delta 


MAX kmax 


PRI surfjuim kprint 


Explanation 


Set ray intercept convergence criterion 
delta — convergence criterion 


Set maximum iteration loops for ray intercept 
kmax — maximum iteration loops 


Set surface ray print flag array 
surf_num — surface number 
kprint — print flag 










SYSTEM RUNTIME PARAMETERS 


Check system routine parameters 

COMMAND MNEMONICS (alphabetical) 

EFF ERR VIG PAS 

THE TASK — Check routine parameters 








4.4 Utility Commands 



UTILITIES 


COMMAND MNEMONICS (alphabetical) 
EDI SYS 


DATA INPUT DESCRIPTION 

Utilities 

SYS ['OP SYS COMMAND’ (250)] 

system to execute system command. 

EDI 

Enter the UNIX editor to edit the system prescription 


APPENDIX 5 

COMMAND MODE SOURCE CODE 




Appendix 5 Command mode source code 


Appendix 5 Command Mode GRAZTRACE Source Code and Sample Prescription 

A5.1 cmd.f Command interpreter (FORTRAN source code) 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c GT1 command mode graztrace 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
program main 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write {*, *) 

Write ( * ^ ^ 'k'k'je'k'k'k'k'k'je'k’lc'k'k'ic'tc-fe'k'tc'i 

write (*,*)" * 

write (*,*)" * GrazTrace 

write (*,*)" * 

'k’tr-kJr'k'k'k'le'tr’lc'le'k+r’ir'kje'k'Jr'i 

write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
write (*, *) 
call command 
end 


subroutine command 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c command input for gtrace 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


implicit double precision (a-h, o-z) 

common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) , dxcirc (50) ,dycirc (50) 

* ,xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50 ) , thick (50 ) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15 ) , delbet (2,15,50), wgt (15,50) , wgtnet (15),effa(15) 

* , pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 
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* , nnrg, kmax, kprint (51 ) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

dimension enc(500),frac(100), rad (100) , xref (15 ) , yref (15 ) 
dimension work (3), tsp(3) 

c 

character*80 cmd_line, cmd_head, cmd_cont, tmp, cmd_buff 

character*8 cmd_sav, hlp_str 

character prompt*7, chr 

ibuff=0 

cmd_sav= ' hel ' 

tmp= 1 gt2hlp . doc ' 

open (19, file=tmp, err=9801) 

1000 prompt="GTRACE>" 

1005 if (ibuff .eq. 1) then 
cmd line=cmd_buf f 
ibuff =0 
go to 1010 
end if 

cccccccccc put prompt 

write (*, ’ (A, $) ' ) prompt 
cccccccccc read in command line 

read (*, ' (A) ? ) cmd_line 
i=index(cmd line,"!") 
if (i .ne. 5) then 
if (i .eq. 1 ) then 
go to 1005 
else 

cmd_line=cmd_line (1 : i-1 ) 
end if 
end if 

1010 i=index(cmd line,";") 
if (i .ne. 5) then 
tmp=cmd_line 
cmd_line=tmp (1 : i-1 ) 
cmd buff=tmp (i+1 : 80 ) 
ibuff = 1 
end if 

i=nindex (cmd_line, " ") 
cmd_line=cmd_line (i : 80 ) 

cccccccccc find command head and convert to all low case 
cmd head=cmd_line (1 : 3) 
do T=l, 3 

n=ichar(cmd head(i:i)) 

if (n .ge. 65 .and. n .le. 90) then 

cmd_head ( i : i ) =char (n+32 ) 

end if 

end do 

cccccccccc save command head and put last command to help string 
hlp_str=cmd_sav 
cmd_s a v= cmd_h e a d 
cccccccccc search for space 

i=index ( cmd_line, " ") 
cccccccccc find command content 
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cmd_cont=cmd_line { i : 8 0 ) 
cccccccccc 

c command processing 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c single data field 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c ZRA processing 

cccccccccc 

c 

if (cmd_head .eq. ' zra') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if ( tmp ( i : i ) .eq. '?') then 
write (*,*) "zrange = ",zrange 
else 

read (tmp, *, err=9101) zrange 
end if 
go to 1000 
end if 
cccccccccc 

c ELE processing 

cccccccccc 

c 

if (cmd_head .eq. 'ele') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if ( tmp ( i : i ) .eq. '?') then 
write (*,*) "elev = ",elev 
else 

read (tmp, *, err=9102 ) elev 
end if 
go to 1000 
end if 
cccccccccc 

c AZI processing 

cccccccccc 

c 

if (cmd_head .eq. 'azi') then 
read (cmd_cont, ' (A) ’ ) tmp 
i=nindex (tmp, " ") 
if (tmp (i : i) .eq. '?*) then 
write (*,*) "azim = ",azim 
else 

read ( tmp, *, err=9103 ) azim 
end if 
go to 1000 
end if 
cccccccccc 

c FOC processing 

cccccccccc 

c 

if (cmd_head .eq. 'foe') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if ( tmp ( i : i ) .eq. '?') then 
write (*,*) "foclen = ", foclen 
else 

read (tmp, *, err=9104) foclen 
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end if 
go to 1000 
end if 
cccccccccc 

c DET processing 

cccccccccc 

c 

if (cmd_head .eq. 'det') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if ( tmp ( i : i ) .eq. '?') then 
write (*,*) "delta = ", delta 

0 1 S0 

read (tmp, *, err=9105) delta 
end if 
go to 1000 
end if 
cccccccccc 

c SUR processing 

cccccccccc 

c 

if (cmd_head .eq. ' sur') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " " ) 
if ( tmp ( i : i ) .eq. '?') then 
write (*,*) "nsurf =", nsurf 
else 

read (tmp, *, err=9106) nsurf 
end if 
go to 1000 
end if 
cccccccccc 

c NRG porcessing 

cccccccccc 

c 

if (cmd_head .eq. 'nrg') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if ( tmp ( i : i ) .eq. '?') then 
write (*,*) "nnrg = ",nnrg 
else 

read (tmp, *, err=9107 ) nnrg 
end if 
go to 1000 
end if 
cccccccccc 

c MAX processing 

cccccccccc 

c 

if ( cmd_head .eq. 'max') then 
read (cmd_cont, ' (A) * ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "kmax = ",kmax 
else 

read (tmp, *,err=9108) kmax 
end if 
go to 1000 


Command mode source a 
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end if 
cccccccccc 

c PAS processing 

cccccccccc 

c 

if (cmd_head .eq. ’pas') then 
read (cmd_cont, ' (A) ') tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "npass = ", npass 
else 

read (tmp, *, err=9109) npass 
end if 
go to 1000 
end if 
cccccccccc 

c VIG processing 

cccccccccc 

c 

if (cmd_head .eq. ' vig') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex ( tmp, " ”) 
if (tmp(i:i) .eq. '?') then 
write {*,*) "nvig = ",nvig 
else 

read (tmp, *, err=9110) nvig 
end if 
go to 1000 
end if 
cccccccccc 

c ERR processing 

cccccccccc 

c 

if (cmd_head .eq. ’err') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex ( tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "nerr = ",nerr 
else 

read (tmp, * , err=9111 ) nerr 
end if 
go to 1000 
end if 
cccccccccc 

c AZM processing 

cccccccccc 

c 

if (cmd_head .eq. 'azm') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " "} 
if (tmp(i:i) .eq. '?') then 
write (*,*) "azmid = ",azmid 
else 

read (tmp, *, err=9112) azmid 
end if 
go to 1005 
end if 
cccccccccc 
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c DAZ processing 

cccccccccc 

c 

if (cmd_head .eq. 'daz') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "delaz = ",delaz 
else 

read (tmp, *, err=9113) delaz 
end if 
go to 1005 
end if 
cccccccccc 

c NRA processing 

cccccccccc 

c 

if (cmd_head .eq. 'nra') then 
read (cmd_cont, * (A) ' ) tmp 
i=nindex (tmp, " " ) 
if (tmp(i:i) .eq. '?') then 
write (*,*) "mspot = ",mspot 
else 

read (tmp, *, err=9114 ) mspot 
end if 
go to 1005 
end if 
cccccccccc 

c XCE processing 

cccccccccc 

c 

if (cmd_head .eq. 'xce') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "xav = ", xav 
else 

read (tmp, *, err=9115) xav 
end if 
go to 1005 
end if 
cccccccccc 

c YCE processing 

cccccccccc 

c 

if (cmd_head .eq. 'yce') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "yav = ", yav 
else 

read (tmp, *, err=9116) yav 
end if 
go to 1005 
end if 
cccccccccc 

c IEN processing 

cccccccccc 
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c 

if (cmd_head .eq. ' ien') then 
read (cmd_cont, ' (A) ') tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "iener = ", iener 
el se 

read (tmp, *, err=9117) iener 
end if 
go to 1005 
end if 
cccccccccc 

c AMA processing 

cccccccccc 

c 

if (cmd_head .eq. 'ama') then 
read (cmd_cont, ' (A) * ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?’) then 
write (*,*) "amax = ", amax 
else 

read (tmp, *, err=9118 ) amax 
end if 
go to 1005 
end if 
cccccccccc 

c NFR processing 

cccccccccc 

c 

if (cmd_head .eq. 'nfr') then 
read (cmd_cont, * (A) ' ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. '?') then 
write (*,*) "nf = ", nf 
else 

read (tmp, *, err=9119) nf 
end if 
go to 1005 
end if 
cccccccccc 

c NLO processing 

cccccccccc 

c 

if (cmd_head .eq. 'nlo') then 
read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. ' ?') then 
write (*,*) "nlong = ", nlong 
else 

read (tmp, *, err=9120) nlong 
end if 
go to 1005 
end if 
cccccccccc 

c NLO processing 

cccccccccc 

c 

if (cmd_head .eq. 'naz' ) then 
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read (cmd_cont, ' (A) ' ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) . eq. '?') then 
write (*,*) "naz = ", naz 
else 

read (tmp, *, err=9121 ) naz 
end if 
go to 1005 
end if 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c one dimensional array data command 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c SOU processing 

cccccccccc 

c 

if (cmd_head .eq. "sou") then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,3 

write (*,*) "source (", i, ") = ", source (i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9201) ii 

i=nindex (cmd_cont, " ") 

cmd_con t=cmd_cont ( i : 8 0 ) 

i=index (cmd_cont, " ") 

cmd cont=cmd_cont (i : 80 ) 

react (cmd_cont, ' (A) ' , err=9201) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) "source (", ii, ") = ", source (ii) 

else 

read (tmp, *, err=9201) source (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c DXC processing 

cccccccccc 

c 

if (cmd_head .eq. "dxc") then 
i=nindex (cmd_cont, " ") 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,*) "dxcirc (", i, ") = ”,dxcirc(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9202) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont (i : 80 ) 

i=index(cmd cont, " ") 

cmd cont=cmH_cont ( i : 8 0 ) 

reacT (cmd_cont , ' (A) ' , err=9202 ) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) "dxcirc (", ii, ") = ", dxcirc (ii) 
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else 

read (tmp, +, err=9202 ) dxcirc(ii) 
end if 
go to 1000 
end if 
cccccccccc 

c DYC processing 

cccccccccc 

c 

if (cmd_head .eq. "dye") then 
i=nindex (cmd_cont, " ") 
if ( cmd_cont ( i : i ) . eq . " ? " ) then 
do i=l,nsurf 

write (*,*) "dycirc ( ", i, ") = ", dycirc (i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9203) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont (i : 80) 

i=index (cmd_cont, " ") 

cmd_cont=cmd_cont ( i : 8 0 ) 

read (cmd_cont, 1 (A) ' , err=9203) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?') then 

write (*,*) "dycirc (",ii,") = ", dycirc (ii) 

else 

read (tmp, *, err=9203) dycirc (ii) 
end if 
go to 1000 
end if 
cccccccccc 

C XWI processing 

cccccccccc 

c 

if (cmd_head .eq. "xwi") then 
i=nindex ( cmd_cont , " " ) 
if ( cmd_cont ( i : i ) . eq . " ? " ) then 
do i=l,nsurf 

write (*, *) "xwidth ( " , i , " ) = ",xwidth(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9204 ) ii 

i=nindex (cmd_cont, " ") 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index (cmd_cont, " ") 

cmd cont=cmd_cont (i : 80) 

rea^ (cmd_cont, ' (A) ' , err=9204 ) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?') then 

write (*,*) "xwidth (",ii,") = ", xwidth (ii) 

else 

read (tmp, * , err=9204 ) xwidth (ii) 
end if 
go to 1000 
end if 
cccccccccc 
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YWI processing 


cccccccccc 
c 


if (cmd_head .eq. "ywi") then 
i=nindex (cmd_cont, " ") 
if ( cmd_cont ( i : i ) . eq . " ? " ) then 
do i=l, nsurf . ljL , , . . 

write (* , * ) "ywidth ( " , i , " ) = , ywidth ( 1 ) 

end do 
go to 1000 

end if . . 

read (cmd_cont, *, err=9205) 11 
i=nindex ( cmd_cont , " " ) 
cmd_cont=cmd_cont ( i : 8 0 ) 
i=index (cmd_cont, " ") 
cmd cont=cmd cont(i:80) 
react (cmd_cont, ' (A) ',err=9205) tmp 
i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. ’ ? ' ) . then ....... 

write (*,*) "ywidth (", ii/ ") - , ywidth (n) 

else . , , .... 

read (tmp, * , err=9205 ) ywidth (n) 

end if 
go to 1000 
end if 
cccccccccc 

c DXR processing 

cccccccccc 

if (cmd_head .eq. "dxr") then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont (i:i) -eq. "?") then 
do i=l, nsurf . ^ . 

write (*,*) "dxrect (", i, ") = ”,dxrect(i) 

end do 
go to 1000 

end if , 

read (cmd_cont, *, err=9206) n 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont (i : 80 ) 

i=index ( cmd_cont , " " ) 

cmd cont=cmd cont(i:80) 

read (cmd_cont, ' (A) • ,err=9206) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?’) then 

write (*,*) "dxrect (",ii,") = ", dxrect (n, 

else .... 

read (tmp, *, err=9206) dxrect (n) 

end if 
go to 1000 
end if 
cccccccccc 

c DYR processing 

cccccccccc 

° if (cmd_head .eq. "dyr") then 

i=nindex(cmd cont," " ) 
if (cmd cont (i : i) • eq. "?" ) then 
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do i=l,nsurf 

write {*,*) "dyrect ( ", i, " ) = ",dyrect(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9207 ) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index ( cmd_cont , " " ) 

cmd_cont=cmd_cont (i:80) 

read (cmd_cont, ' (A) ' , err=9207) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) "dyrect (", ii, " ) = ", dyrect (ii) 

else 

read (tmp, *, err=9207) dyrect(ii) 
end if 
go to 1000 
end if 
cccccccccc 

c THR processing 

cccccccccc 

c 

if (cmd_head .eq. "thr") then 
i=nindex (cmd_cont, " ") 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write(*,*) "threct ( ", i, " ) = ”,threct(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9208 ) ii 

i=nindex (cmd_cont , " ") 

cmd_cont=cmd_cont (i : 80 ) 

i=index (cmd_cont, " ") 

cmd cont=cmd_cont (i : 80 ) 

reacT (cmd_cont, ' (A) ’ , err=9208 ) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) "threct (", ii, " ) = ", threct (ii) 

else 

read (tmp, *, err=9208) threct (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c THI processing 

cccccccccc 

c 

if (cmd_head .eq. "thi") then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write(*,*) "thick (", i, " ) = ",thick(i) 
end do 
go to 1000 
end if 

read (cmd cont, *, err=9209) ii 
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i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont (i : 80) 

i=index (cmd_cont, " ") 

cmd cont=cmd_cont ( i : 8 0 ) 

reacl (cmd_cont, ? (A) ' , err=9209) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) "thick (",ii,") = ", thick (ii) 

else 

read (tmp, *, err=9209) thick (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c IND processing 

cccccccccc 

c 

if (cmd_head .eq. "ind") then 
i=nindex (cmd_cont, " ") 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,*) "findex (", i, ") = ",findex(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9210) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_con t ( i : 8 0 ) 

i=index (cmd_cont, " ") 

cmd_cont=cmd_con t ( i : 8 0 ) 

read (cmd_cont, ' (A) ' , err=9210) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. ’?') then 

write (*,*) "findex (", ii, ") = ", findex (ii) 

else 

read (tmp, *, err=9210) findex (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c ENE processing 

cccccccccc 

c 

if (cmd_head .eq. "ene") then 
i=nindex (cmd_cont , " ") 
if (cmd_cont (i : i) .eq. "?") then 
do i=l,nnrg 

write (*, *) "energy (",i, ") = ",energy(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9211) ii 
i=nindex ( cmd_cont , " " ) 
cmd_cont=cmd_cont ( i : 8 0 ) 
i=index(cmd cont," ") 
cmd cont=cmcf_cont ( i : 8 0 ) 
reacT (cmd_cont, ' (A) ' , err=9211) tmp 
i=nindex (tmp, " ") 
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if (tmp(i:i) .eq. '?') then 

write (*,*) "energy (", ii, ") = ", energy (ii) 

else 

read (tmp, *, err=9211 ) energy (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c EFF processing 

cccccccccc 

c 

if (cmd_head .eq. "eff") then 
i=nindex ( cmd_cont , " " ) 
if ( cmd_cont ( i : i ) . eq . " ? " ) then 
do i=l,nnrg 

write (*, *) "ef fa ( ", i, " ) = ",effa(i) 
end do 
go to 1000 
end if 

read (cmd_cont , * , err=9212 ) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index ( cmd_cont , " " ) 

cmd cont=cmd_cont (i: 80) 

read (cmd_cont, ' (A) ' ,err=9212) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) " effa (", ii, ") = ", effa(ii) 

0 1 S0 

read (tmp, * , err=9212 ) effa(ii) 
end if 
go to 1000 
end if 
cccccccccc 

c MOV processing 

cccccccccc 

c 

if (cmd_head .eq. "mov") then 
i=nindex (cmd_cont, " ") 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,*) "imove (", i, ") = ",imove(i) 
end do 
go to 1000 
end if 

read (cmd_cont , * , err=9213 ) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index(cmd cont, " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

read (cmd_cont , ' (A) ' , err=9213 ) tmp 

i=nindex (tmp, " ") 

if (tmp (i : i ) .eq. '?') then 

write (*,*) " imove (", ii, ") = ", imove (ii) 

else 

read (tmp, *, err=9213) imove (ii) 
end if 
go to 1000 
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end if 
cccccccccc 

c RST processing 

cccccccccc 

c 

if (cmd_head .eq. "rst") then 
i=nindex (cmd_cont, " ") 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write(*,*) "irstr (", i, ") = ",irstr(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9214 ) ii 

i=nindex (cmd_cont, " ") 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index ( cmd_cont , " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

read (cmd_cont, ' (A) ' , err=9214 ) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) " irstr (", ii, ") = ", irstr(ii) 

else 

read (tmp, *, err=9214 ) irstr (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c WGT processing 

cccccccccc 

c 

if (cmd_head .eq. "wgt") then 
i=nindex (cmd_cont, " ") 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,*) "iwgt ( ", i, " ) = ”,iwgt(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9215) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index(cmd cont," ") 

cmd cont=cmd_cont ( i : 8 0 ) 

reaH (cmd_cont, ' (A) ' , err=9215 ) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. '?') then 

write (*,*) " iwgt(",ii,") = ", iwgt(ii) 

else 

read (tmp, *, err=9215) iwgt(ii) 
end if 
go to 1000 
end if 
cccccccccc 

c PRI processing 

cccccccccc 

c 

if (cmd_head .eq. "pri") then 
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i=nindex ( cmd cont , " " ) 
if (cmd_cont (i : i) . eq . "?" ) then 
do i=l, nsurf „ , 

write (*, *) " kprint ( " , i , ' ) — , kpnnt ( 1 ) 

end do 
go to 1000 
end if 

read (cmd_cont, *, err=9216 ) 11 

i=nindex (cmd_cont , " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index (cmd_cont, " ") 

cmd cont=cmd_cont ( i : 8 0 ) 

reaH (cmd_cont , ' (A) ' , err=9216) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?') then 

write (*,*) "kprint (",ii,”) = ", kprint (u) 

else . , . . . 

read (tmp, *, err=9216) kprint (ii) 

end if 
go to 1000 
end if 


cccccc cccc 
c 

cccccccccc 
c 


ITI processing 


if (cmd_head .eq. "iti") then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont(i:i) .eq."?") then 
do i=l, nsurf . , , , . x 

write (*, *) "itilt ( " , i , " ) = ,itilt(i) 

end do 
go to 1000 
end if 

read (cmd_cont, *, err=9217) n 
i=nindex (cmd_cont, " ") 
cmd_cont=cmd_cont ( i : 8 0 ) 
i=index (cmd_cont , " ") 
cmd cont=cmd_cont (i:80) 
read (cmd_cont, ' (A) ',err=9217 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. ' ? ' ) then 
write (*,*) " itilt (", ii, ” ) = 

el se . , , • ■ v 

read (tmp, * , err=9217 ) itilt (n) 

end if 
go to 1000 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c two dimensional array data command 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


tmp 

, itilt (ii) 


c RLI processing 

cccccccccc 

if (cmd_head .eq. "rli") then 
read (cmd_cont, *, err=9301) ii, 33 
do j=l,2 

i=nindex (cmd_cont, " " ) 

cmd cont=cmd_cont (i : 80 ) 
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i=index ( cmd_cont , " " ) 
cmd_cont=cmd_cont (i : 80 ) 
end do 

read (cmd_cont, • (A) ' , err=9301) tmp 

i=nindex (tmp, " " ) 

if ( tmp ( i : i ) .eq. '?') then 

write (*, *) "radlim ( ", ii, ", ", j j , ") = 1 

else 

read (tmp, *, err=9301) radlim(ii, jj ) 
end if 
go to 1000 
end if 
cccccccccc 

c ADA processing 

cccccccccc 

c 

if (cmd_head .eq. "ada") then 
read (cmd_cont, *, err=9302) ii, ii 
do j=l, 2 J 

i=nindex ( cmd_cont , " " ) 
cmd_cont=cmd_cont ( i : 8 0 ) 
i=index(cmd cont, " ") 
cmd_cont=cm3_cont (i: 80 ) 
end do 

read (cmd_cont, ' (A) ' ,err=9302) tmp 

i=nindex (tmp, " ") 

if ( tmp { i : i ) .eq. '?') then 

write (*, *) " adata (",ii, ", ", jj, ") = » 

else 

read (tmp, *, err=9302) adata (ii.jj) 
end if JJ 

go to 1000 
end if 
cccccccccc 

c TIL processing 

cccccccccc 

c 

if (cmd_head .eq. "til") then 
read (cmd_cont, *,err=9303) ii, ii 
do ;j-l,2 

i=nindex (cmd_cont, " ") 
cmd_cont=cmd_cont (i : 80 ) 
i=index(cmd cont," ") 
cmd_cont=cmH_cont ( i : 80 ) 
end do 

read (cmd_cont, ' (A) ' ,err=9303) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?') then 

write (*,*) " tilt (", ii, ", ", j j , ") = « 

else 

read (tmp, *, err=9303) tilt(ii,jj) 
end if JJ 

go to 1000 
end if 
cccccccccc 

c DIS processing 

cccccccccc 

c 


, radlim(ii, j j ) 


, adata (ii , j j ) 


tilt (ii, jj) 
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if (cmd_head .eq. "dis") then 
read (cmd_cont, *, err=9304 ) ii, j j 
do j=l , 2 JJ 

i=nindex (cmd_cont, " ") 
cmd_cont=cmd_cont ( i : 8 0 ) 
i=index (cmd_cont, " ") 
cmd_cont=cmd_cont (i: 80 ) 
end do 

read (cmd_cont, ? (A) ' , err=9304 ) tmp 
i=nindex (tmp, " ") 
if (tmp(i:i) .eq. •?•) then 

write (*,*) " disp(”,ii,»,», 3j ,..) . displii, jj) 

read (tmp, *,err=9304) disp(ii,jj) 

end if JJ 

go to 1000 
end if 
cccccccccc 

c SDA processing 

cccccccccc 

c 


if (cmd_head .eq. "sda") then 
read (cmd_cont, *, err=9305) ii, ii 
do j=l, 2 JJ 

i=nindex ( cmd_cont , " " ) 
cmd_cont=cmd_cont ( i : 8 0 ) 
i=index (cmd_cont, " ") 
cmd_cont=cmd_cont ( i : 80 ) 
end do 

read (cmd_cont, * (A) ’,err=9305) tmp 

i=nmdex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?») then 

write!*,*) " sdata ( ", ii, ", ", j j , , », sd ata(ii, 33 ) 

read (tmp, *, err-9305) sdata (ii, id ) 
end if JJ 

go to 1000 
end if 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccddcccccccccccccccccccccccccoccccccccccccccecccoccc 

cccccccccc 


if (cmd_head .eq. "mat") then 
read_( c m d _ cont / * / err = 94° 1 ) ii, jj, kk 

i=nindex (cmd_cont, " ") 
cmd_cont=cmd_cont (i : 80 ) 
i=index ( cmd_cont , " " ) 
cmd_cont=cmd_cont ( i : 8 0 ) 
end do 

read (cmd_cont, ' (A) ’,err=9401) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. '?') then 

else 6 (* r *) "rmat (", ii, ", ", j j , k k, ") = ", rmat (ii, j j , kk) 
read (tmp, *, err=9401 ) rmat (ii, j j , kk) 
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tmp 


", ", kk, ") = ", delbet (ii, j j , kk) 


end if 
go to 1000 
end if 
cccccccccc 

c DEB processing 

cccccccccc 

if (cmd head .eq. "del") then 
read (cmd_cont, *, err=9402) 11 , 11/ kk 
do j=l,3 

i=nindex (cmd_cont , " ) 

cind cont=cmd_cont ( i : 8 0 ) 
i=index ( cmd_cont , " " ) 
cmd_cont=cmd_cont (i : 80) 

end do . 

read (cmd_cont, ' (A) \err=9402) 
i=n index (tmp, " ") 
if (tmp (i : i) .eq. '?;) then 
writ6 ( * /*) ,f d6 Ibat ( r ii/ / / jj 

p| ep 

read (tmp, *, err=9402) delbet (ii, jj , kk) 
end if 
go to 1000 
end if 
cccccccccc 

c RSI processing 

cccccccccc 

if (cmd head .eq. "rsi " ) then 
read (cmd_cont, *, err=9408 ) 
do lsurf=l, nsurf 
kprint (lsurf )=1 
end do 

rr=rmin+ (rmax— rmin) *frad 
^j ie ta=azmin+ (azmax-azinin) fthcta 
tsp (1) =rr*dcos (theta) 
tsp (2 ) =rr*dsin (theta) 
tsp(3)=0.d0 

work (1 ) -tsp ( 1 ) -source 1 *fxf Id 
work (2) -tsp (2 ) -source (2) *fyf Id 

sSm=d5qruSor k( l°*So?k ( 1 ) +work (2 ) *work (2 ) +work ( 3 ) *wor k (3 ) ) 

do j=l, 3 
spi ( j ) =tsp ( j ) 
rai (j)-work(j) /sum 
end do 

call wray (efact , irstat ) 
do lsurf=l, nsurf 
kprint (lsurf )=0 
end do 
go to 1000 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccc dimensional string data command 

ccccccccccccccScccccccccccccccccccccccccccccccccccccccccccccc 

c APE processing 

cccccccccc 

c 


leu 

f rad, ftheta, fxf Id, fyf Id 
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if (cmd_head .eq. 'ape') then 
i=nindex ( cmd_cont , " " ) 
if ( cmd_cont ( i : i ) . eq . " ? " ) then 
do i=l,nsurf 

write (*,*) "iaper ( ", i, ") = ",iaper(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9601) ii 

i=nindex { cmd_cont , ” " ) 

cmd_cont=cmd_cont (i : 80 ) 

i=index(cmd cont, " " ) 

cmd_cont=cmcT_cont (i : 80 ) 

read (cmd_cont, ' (A) T , err=9601 ) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. "?") then 

write (*,*) "iaper (",ii, ") = ", iaper (ii) 

else 

read (tmp(i:80), * (A) ', err=9601) iaper (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c OBS processing 

cccccccccc 

c 

if (cmd_head . eq. 'obs') then 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,+) "iobs (", i, ") = ", iobs(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9602) ii 

i=nindex (cmd_cont, " " ) 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index (cmd_cont , " ") 

cmd_cont=cmd_cont (i:80) 

read (cmd_cont, ' (A) ' , err=9602 ) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. "?") then 

write (*,*) " iobs ( ", ii, ") = ", iobs(ii) 

else 

read (tmp (i : 80) , • (A) ' , err=9602 ) iobs(ii) 
end if 
go to 1000 
end if 
cccccccccc 

c TYP processing 

cccccccccc 

c 

if (cmd_head .eq. 'typ') then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,*) "itype ( ", i, ") = ",itype(i) 
end do 
go to 1000 


Final Report A5.19 



Appendix 5 Command mode source cc 


end if 

read (cmd_cont , *, err=9603) ii 

i=nindex (cmd_cont, " ") 

cmd_cont=cmd_cont ( i : 80 ) 

i=index(cmd cont," " ) 

cmd cont=cmd_cont (i: 80) 

read (cmd_cont, ' (A) ' , err=9603) tmp 

i=nindex (tmp, " ") 

if ( tmp ( i : i ) .eq. "?") then 

write (*,*) "itype (", ii, ") = ", itype (n) 

else . . . . . 

read (tmp(i:80) , ’ (A) \ err=9603) itype (n) 

end if 
go to 1000 
end if 
cccccccccc 

c MOD processing 

cccccccccc 

c 

if (cmd_head .eq. 'mod') then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont (i:i) .eq. "?") then 
do i=l,nsurf 

write (*,*) " imode ( " , i , " ) = ", imode ( i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9604) ii 

i=nindex (cmd_cont, " ") 

cmd_cont=cmd_cont ( i : 8 0 ) 

i=index ( cmd_cont , " " ) 

cmd cont=cmH_cont (i: 80) 

read (cmd_cont, ' (A) ' , err=9604 ) tmp 

i=nindex (tmp, " " ) 

if ( tmp ( i : i ) .eq. "?") then 

write (*,*) "imode (",ii, ") = ", imode (n) 

0 1 S0 

read (tmp (i: 80) , ’ (A) ’, err=9604 ) imode (ii) 
end if 
go to 1000 
end if 
cccccccccc 

c FDF processing 

cccccccccc 


c 


if (cmd_head .eq. 'fdf') then 
i=nindex ( cmd_cont , " " ) 
if (cmd cont (i:i) .eq. "?") then 


do i=l,nsurf 

write (*,*) "ifdfm ( ", i, " ) 


” , ifdfm(i) 


end do 


go to 1000 
end if 

read (cmd_cont, *, err=9605) ii 
i=nindex ( cmd_cont , " " ) 
cmd_cont=cmd_cont ( i : 8 0 ) 
i= index (cmd cont," ") 
cmd cont=cmd cont (i: 80) 
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read (cmd_cont , ' (A) ' , err=9605 ) tmp 

i=nindex (tmp, " ") 

if (tmp(i:i) .eq. "?") then 

write (*,*) "ifdfm ( ", ii, " ) = ”,ifdfm(ii) 

0 1 S0 

read (tmp (i: 80) , ' (A) ' , err=9605) ifdfm (ii) 
iurdfm=7 

call rdfm(iurdfm) 
end if 
go to 1000 
end if 
cccccccccc 

c TIT processing 

cccccccccc 

c 

if (cmd_head .eq. 'tit') then 
i=nindex ( cmd_cont , " " ) 
if (cmd_cont (i : i) . eq. "?") then 
do i=l,nsurf 

write (*, *) "ihead (", i, ") = ",ihead(i) 
end do 
go to 1000 
end if 

read (cmd_cont, *, err=9606) ii 

i=nindex ( cmd_cont , " " ) 

cmd_cont=cmd_cont (i: 80) 

i=index ( cmd_cont , " " ) 

cmd cont=cmd_cont (i: 80) 

react (cmd_cont, ' (A) ',err=9606) tmp 

i=nindex ( tmp, " ") 

if (tmp(i:i) .eq. "?") then 

write(*,M "ihead (", ii, ") = ",ihead(ii) 

0 1 S0 

read (tmp (i:80), ' (A) ' , err=9606) ihead (ii) 
end if 
go to 1000 
end if 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c Executable command 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c RSV processing 

cccccccccc 
c 

if (cmd_head .eq. 'rsv') then 
read (cmd_cont, *, err=9700) tmp 
call wrayso(tmp) 
go to 1000 
end if 
cccccccccc 

c SAV processing 

cccccccccc 

c 

if (cmd_head .eq. 'sav') then 
read (cmd_cont, *, err=9701) tmp 
c call system("cp presc.sxi.2 "// tmp) 

iu = 12 
istat = 1 

open (iu, file=tmp, err=9801 ) 
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call rdout (iu, istat) 
if (istat .eq. -1) then 
write (*,*)" SAVE ERROR" 

end if 
close (iu) 
go to 1000 
end if 
cccccccccc 

c RES processing 

cccccccccc 

c 

if (cmd_head .eq. ’res') then 
read (cmd_cont, *, err=9702 ) tmp 
c call system("cp "// tmp //" presc.sxi.2 ") 

iu = 11 
istat=l 

call readin(iu, tmp, istat) 
if (istat .eq. -1) then 
write (*,*)" RESTORE ERROR" 

end if 

call setcom(ierr) 
go to 1000 
end if 
cccccccccc 

c SYS processing 

cccccccccc 

c 

if (cmd_head .eq. ' sys') then 
read (cmd_cont, ' (A) ' ) tmp 
if (nindex(tmp, " ") . gt. 60) then 

go to 9703 
end if 

call system (tmp) 
go to 1000 
end if 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c no field command 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c LEN processing 

cccccccccc 

if (cmd_head .eq. "len") then 
call czero 
go to 1000 
end if 
cccccccccc 

c LIS processing 

cccccccccc 

if (cmd head .eq. "lis") then 
call printOl 
go to 1000 
end if 
cccccccccc 

c EDI processing 

cccccccccc 

if (cmd_head .eq. "edi") then 
iu = 13 
istat =1 

open (iu, f ile="gtracecm. tmp") 
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call rdout (iu,istat) 
close (iu) 

call system ("vi gtracecm. tmp" ) 
call readin (iu, "gtracecm. tmp", istat) 
if (istat .eq. -1) then 
write (*,*) " EDIT ERROR" 

end if 
go to 1000 
end if 
cccccccccc 

c ANA processing 

cccccccccc 

if (cmd_head .eq. "ana") then 
iu = 13 
istat =1 

open (iu, file="presc. sxi. 2") 
call rdout (iu, istat) 
close (iu) 

call system ("gt.exe") 
call system (" more print . gtrace" ) 
go to 1000 
end if 
cccccccccc 
c WSP 

cccccccccc 

if (cmd_head .eq. "wsp") then 

mspot=1000 

rmin=radlim (1,1) 

rmax=radlim (2,1) 

azmid=0 . dO 

delaz=2 . d0*pi 

prompt=" WSP>" 

c call wspotl (mspot, irand, rmin, rmax, azmin, azmax) 

go to 1005 
end if 
cccccccccc 
c WS1 

cccccccccc 

if (cmd head .eq. "ws2") then 

nlong=l(T0 

naz=72 

rmin=radlim (1,1) 
rmax=radlim (2, 1) 
azmid=0 . dO 
delaz=2 . d0*pi 
prompt=" WS2>" 
go to 1005 
end if 
cccccccccc 
c GRI 

cccccccccc 

if (cmd head .eq. "gri") then 

nlong=1^0 

naz=72 

rmin=radlim (1, 1) * (l.dO+l.d-8) 
rmax=radlim (2 , 1 ) / ( 1 . d0+l . d-8 ) 
prompt=" GRI>" 
go to 1005 
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end if 
cccccccccc 
c GR2 

cccccccccc 

if (cmd_head .eq. "gr2") then 

nlong=100 

naz=72 

rmin=radlim ( 1 , 1 ) * ( 1 . dO+1 . d-8 ) 
rmax=radlim(2, 1) / (l.dO+l.d-8) 
prompt=" GR2>" 
go to 1005 
end if 
cccccccccc 

c FCS processing 

cccccccccc 

c 

if (cmd_head .eq. 'fcs') then 
c read (cmd_cont, ' (A) ' ) tmp 

c read (tmp, *, err=9704 ) iener 

c call focus (iener, xav, yav, delz) 

iener=l 

prompt=" FCS>" 
go to 1005 
end if 
cccccccccc 

c WST processing 

cccccccccc 

c 

if (cmd_head .eq. 'wst') then 
c read (cmd_cont, ' (A) ' ) tmp 

c read (tmp, *, err=9705) iener 

c call wstat (iener, xav, yav, wav, wtot, xref (iener) , yref (iener) 

c $ , foclen, elev) 

c xref (iener ) =xav 

c yref (iener ) =yav 

iener=l 

prompt=" WST>" 
go to 1005 
end if 
cccccccccc 
c SPO 

cccccccccc 

if (cmd_head .eq. "spo") then 
mspot=0 

prompt=" SP0>" 
go to 1005 
end if 
cccccccccc 
c RAD 

cccccccccc 

if (cmd head .eq. "rad") then 

mspot=5TF0 

iener=l 

amax=2 . dO 

nf=20 

prompt=" RAD>" 
go to 1005 
end if 
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cccccccccc 

c GO processing 

cccccccccc 

if (cmd_head . eq. "go ") then 
c 

if (prompt .eq. " WSP>") then 
azmin=azmid-delaz/2 . dO 
azmax=azmid+delaz/2 . dO 
irand=0 

call ranset (irand) 

call wspotl (mspot, irand, rmin, rmax, azmin, azmax) 
go to 1000 
end if 
c 

if (prompt .eq. " WS2>") then 

azmin=azmid-delaz/2 . dO 
azmax=azmid+delaz/2 . dO 

call wspot2 (nlong, naz, rmin, rmax, azmin, azmax) 
go to 1000 
end if 
c 

if (prompt .eq. " GRI>") then 
call gridl (nlong, naz, rmin, rmax) 
go to 1000 
end if 
c 

if (prompt .eq. " GR2>") then 

call grid2 (nlong, naz, rmin, rmax) 
go to 1000 
end if 
c 

if (prompt .eq. " FCS>")then 

call focus (iener, xav, yav, delz ) 
go to 1000 
end if 
c 

if (prompt .eq. " WST>")then 

call wstat (iener, xav, yav, wav, wtot, xref (iener) , yref (iener) 

$ , foclen, elev) 

xref (iener) =xav 
yref (iener) =yav 
go to 1000 
end if 
c 

if (prompt .eq. " SPO>")then 

call spdiag (xav, yav, mspot ) 
go to 1000 
end if 
c 

if (prompt .eq. " RAD>") then 

do i=l,nf 

frac (i)=dble (i) /dble (nf ) 
end do 

frac (nf ) =f rac (nf ) / (1 . d0+l . d-8 ) 

call encirc (iener, xav, yav, foclen, amax, mspot, frac, rad, nf , enc 
$ ,wamax,wtot) 
go to 1000 
end if 
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c 

end if 
cccccccccc 

c CAN processing 

cccccccccc 

if (cmd head .eq. "can" ) then 
go to 1^00 
end if 
cccccccccc 

c HEL processing 

cccccccccc 

if (cmd head .eq. "hel" .or. cmd_head(l:l) .eq. "?") then 
read (cmH_cont, ' (A) ' ) tmp 
if (cmd_cont .eq. ,? ) cmd_cont=hlp_str 
call hip (cmd_cont ) 
c write(*,*) 

c write (*,*) " GrazTrace Command" 

c write(*,*) 

c write(*,*) 


c 


write (*,*)" 

ADA 

ANA 

AZI 

APE 

DEL 

DET", 

c 

$ 

" DIS 

DXC 

DYC 

DXR" 




c 


write (*, *) 







c 


write (*,*) " 

DYR 

EDI 

EFF 

ELE 

ENE 

ERR", 

c 

$ 

" EXI 

FOC 

FDF 

IMO" 




c 


write (*, *) 







c 


write (*,*)" 

IMG 

IND 

IRS 

ITI 

LEN 

LIS", 

c 

$ 

" MAX 

MAT 

MOD 

NRG" 




c 


write (*, *) 







c 


write (*,*)" 

OBS 

PAS 

PRI 

RAD 

RES 

SAV", 

c 

$ 

" SYS 

THI 

THR 

TIT" 




c 


write (*, *) 







c 


write (*,*)" 

i • • m • • 

ff 






c write (*,*) 

c write (*,*) 

c write (*, *) 

c write (*,*) 

c write (*,*) 

c write(*,*) 

c write(*,*) 

c write(*,*) 

c write (*,*) 

c write (*,*) 

go to 1000 
end if 
cccccccccc 

c EXI processing 

cccccccccc 

if (cmd_head .eq. "exi") then 

write (*, ’ (A, $) • ) "EXITING THE PROGRAM ? (Y/N) " 
read (*, ' (A) ' ) tmp 
i=nindex ( tmp, " ") 
chr=tmp (i:i) 

if (chr .eq. "y" .or. chr .eq. "Y") then 
go to 9000 
end if 
go to 1000 
end if 
cccccccccc 
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c ENTER 

cccccccccc 

if (cmd_head (1:1) .eq. "") then 
go to 1005 
end if 
cccccccccc 

c UNKNOWN COMMAND 

cccccccccc 

write (*,*) "Unknown command" 
go to 1005 
cccccccccc 
9000 stop 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c command error 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c command syntax prompt 

cccccccccc 

9101 write (*,*)" Syntax: ZRA DATA" 

write (*,*)" Or: ZRA ?" 

go to 1000 
cccccccccc 

9102 write (*,*)" Syntax: ELE DATA" 

write (*,*)" Or: ELE ?" 

go to 1000 
cccccccccc 

9103 write {*,*)" Syntax: AZI DATA" 

write (*,*)" Or: AZI ?" 

go to 1000 
cccccccccc 

9104 write (*,*)" Syntax: FOC DATA" 

write (*,*)" Or: FOC ?" 

go to 1000 
cccccccccc 

9105 write (*,*)" Syntax: DET DATA" 

write (*,*) " Or: DET ?" 

go to 1000 
cccccccccc 

9106 write (*,*)" Syntax: SUR DATA" 

write (*,*)” Or: SUR ?" 

go to 1000 
cccccccccc 

9107 write (*,*)" Syntax: NRG DATA" 

write (*,*)" Or: NRG ?" 

go to 1000 
cccccccccc 

9108 write (*,*)" Syntax: MAX DATA" 

write (*,*)" Or: MAX ?" 

go to 1000 
cccccccccc 

9109 write (*,*)" Syntax: PAS DATA" 

write (*,*)" Or: PAS ?" 

go to 1000 
cccccccccc 

9110 write (*,*)" Syntax: VIG DATA" 

write (*,*)" Or: VIG ?" 

go to 1000 
cccccccccc 

9111 write (*,*)" Syntax: ERR DATA" 
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write (*, * ) " 
go to 1000 

cccccccccc 

9112 

write (*,*)" 
write (*,*)" 
go to 1005 

CCCCCCCCCC 

9113 

write (*,*)" 
write (*,*)" 
go to 1005 

cccccccccc 

9114 

write (*,*)" 
write (*,*)" 
go to 1005 

cccccccccc 

9115 

write (*,*)" 
write (*/*)" 
go to 1005 

cccccccccc 

9116 

write (*,*)" 
write (*, * ) " 
go to 1005 

cccccccccc 

9117 

write (*,*)" 
write (*,*)" 
go to 1005 

cccccccccc 

9118 

write (*,*)" 
write (*,*)" 
go to 1005 

cccccccccc 

9119 

write (*,*) " 

write (*,*) " 

go to 1005 

cccccccccc 

9120 

write (*,*)" 
write (*,*)" 
go to 1005 

cccccccccc 

9121 

write (*,*) " 
write (*,*)" 
go to 1005 

cccccccccc 

9201 

write (*,*) " 
write (*,*)” 
go to 1000 

cccccccccc 

9202 

write (*,*) " 
write (*,*) " 
go to 1000 

cccccccccc 

9203 

write (*,*)" 
write <*,*)" 
go to 1000 

cccccccccc 

9204 

write (*,*)" 
write (*,*)" 
go to 1000 


Or: ERR ?" 


Syntax: AZM DATA" 
Or: AZM ?" 


Syntax: DAZ DATA" 
Or: DAZ ?" 


Syntax: NRA DATA" 
Or: NRA ?" 


Syntax: XCE DATA" 
Or: XCE ?" 


Syntax: YCE DATA" 
Or: YCE ?" 


Syntax: IEN DATA" 
Or: IEN ?" 


Syntax: AMA DATA" 
Or: AMA ?" 


Syntax: NFR DATA" 
Or: NFR ?" 


Syntax: NLO DATA" 
Or: NLO ?" 


Syntax: NAZ DATA" 
Or: NAZ ?" 


Syntax: SOU i DATA" 
Or: SOU i ?" 


Syntax: DXC i DATA" 
Or: DXC i ?" 


Syntax: DYC i DATA" 
Or: DYC i ?" 


Syntax: XWI i DATA" 
Or: XWI i ?" 
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cccccccccc 

9205 write (*,*)" 
write (*, *) " 
go to 1000 

cccccccccc 

9206 write {*,*) " 
write (*,*)" 
go to 1000 

cccccccccc 

9207 write (*,*)" 
write (*,*)” 
go to 1000 

cccccccccc 

9208 write (*,*)" 
write (*,*) " 
go to 1000 

cccccccccc 

9209 write (*,*)" 
write (*,*) " 
go to 1000 

cccccccccc 

9210 write (*,+)" 
write (*,*)" 
go to 1000 

cccccccccc 

9211 write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9212 write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9213 write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9214 write (*,*)" 
write (*,*) " 
go to 1000 

cccccccccc 

9215 write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9216 write (*,*)" 
write (*,*}" 
go to 1000 

cccccccccc 

9217 write (*,*)” 
write (*,*)” 
go to 1000 

cccccccccc 

9301 write (*,*)” 
write (*,*)” 
go to 1000 

cccccccccc 

9302 write (*,*)" 


Syntax: YWI 

i 

DATA" 

Or: YWI 

i 

?" 

Syntax: DXR 

i 

DATA" 

Or: DXR 

i 

?" 

Syntax: DYR 

i 

DATA" 

Or: DYR 

i 

?" 

Syntax: THR 

i 

DATA" 

Or: THR 

i 

?" 

Syntax: THI 

i 

DATA" 

Or: THI 

i 

?" 

Syntax: IND 

i 

DATA" 

Or : IND 

i 

?" 

Syntax: ENE 

i 

DATA" 

Or : ENE 

i 

? " 

Syntax: EFF 

i 

DATA" 

Or: EFF 

i 

?" 

Syntax : MOV 

i 

DATA" 

Or: MOV 

i 

?" 

Syntax: RST 

i 

DATA" 

Or : RST 

i 

?" 

Syntax: WGT 

i 

DATA" 

Or: WGT 

i 

? " 

Syntax: PRI 

i 

DATA" 

Or: PRI 

i 

? " 

Syntax: ITI 

i 

DATA" 

Or: ITI 

i 

?" 

Syntax: RLI 

i 

j DATA 

Or: RLI 

i 

j ?" 

Syntax: ADA 

i 

j DATA 
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write (*,*)" 
go to 1000 

ccccc ccccc 

9303 

write (*,*)" 
write (*, *) " 
go to 1000 

cccccccccc 

9304 

write (*,*)" 
write (*,*) " 
go to 1000 

cccccccccc 

9305 

write (*,*)" 
write (*, *) " 


go to 1000 

cccccccccc 

9401 

write (*,*)" 
write (*,*)” 
go to 1000 

cccccccccc 

9402 

write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9408 

write (*,*)" 
go to 1000 

cccccccccc 

9601 

write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9602 

write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9603 

write {*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9604 

write (*,*)” 
write (*, *) " 
go to 1000 

cccccccccc 

9605 

write (*,*)” 
write (*,*)" 
go to 1000 

cccccccccc 

9606 

write (*,*)" 
write (*,*)" 
go to 1000 

cccccccccc 

9700 

write (*,*)" 
go to 1000 

cccccccccc 

9701 

write (*,*)" 
go to 1000 

cccccccccc 

9702 

write (*,*)" 


go to 1000 


Or: ADA 

i j 

?" 

Syntax: TIL 

i j 

DATA" 

Or: TIL 

i j 

?" 

Syntax: DIS 

i j 

DATA" 

Or: DIS 

i j 

?" 

Syntax: SDA 

i 3 

DATA" 

Or: SDA 

i j 

?" 

Syntax: MAT 

i j 

k DATA" 

Or: MAT 

i j 

k ?" 

Syntax: DEB 

i j 

k DATA" 

Or : DEB 

i j 

k ?" 

Syntax: RSI 

r_p 

theta_p x_fld y_fld 

Syntax: APE 

i DESCRIPTION" 

Or: APE 

i ? 

H 

Syntax: OBS 

i DESCRIPTION" 

Or : OBS 

i ? 

If 

Syntax: TYP 

i DESCRIPTION" 

Or: TYP 

i ? 

fl 

Syntax: MOD 

i DESCRIPTION" 

Or: MOD 

i ? 

If 

Syntax: FDF 

i DESCRIPTION" 

Or: FDF 

i ? 

fl 

Syntax: TIT 

i DESCRIPTION" 

Or: TIT 

i ? 

fl 

Syntax: RSV 

FILENAME" 

Syntax: SAV 

FILENAME" 

Syntax: RES 

FILENAME" 
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cccccccccc 



9703 write (*,*)" 

go to 1000 
cccccccccc 

Syntax: SYS 

""SYSTEM COMMAND"" 

9704 write (*,*)" 

go to 1000 
cccccccccc 

Syntax: FCS 

energy" 

9705 write (*,*)" 

go to 1000 
cccccccccc 

Syntax: WST 

energy" 

9801 write (*,*)” 

cccccccccc 

Error opening file",tmp 


end 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c function to find first nonmatching character position 

c in the string. It is usefull to eliminate leading 

c space. 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
function nindex (str, chr) 
character str*80, chr 
nindex=l 

do while ( index (str (nindex: 80) , chr) .eq. 1) 

nindex=nindex+l 

end do 

end 
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A5.2 gt2glp.f Interactive Help (FORTRAN source code) 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c Interactive help for command mode GRAZTRACE 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c This subroutine gives help imformation according 

c to the help word hlp_str. 

c 

c hlp_str contains help word typed by user follows 

c HELp command, 

c 

c If the user only type HELp with no word follows, 

c hlp_str picks up the latest command head, 

c 

c If the latest command is simple <CR>, this help 

c list all the command available in GRAZTRACE. 

c 

c When the hip str is an unknown command, this help 

c also list alT valid command in GRAZTRACE. 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

subroutine hlp(hlp_str) 
character*80 line, linep, linepp 
character*8 hlp_str 
write (*,*) 
c 

c find head of help string and vonvert to all upper case 
c 

i=nindex (hlp_str, " ") 
hlp_str=hlp_str (i: 8) 
hip str=hlp_str (1 : 3) 
do T=l, 3 

n=ichar(hlp str(i:i)) 
if(n .ge. 97 .and. n .le. 122) then 
hlp_str (i : i) =char (n-32 ) 
end if 
end do 
c 

c loop through help document 
c 

300 rewind (19) 

read (19, ' (A) ' ) linepp 
read (19, • (A) ' ) line 
linep=line 

do while (line (i:i+2) .ne. 'Unk') 
read (19, ' (A) * ) line 
i=nindex ( line , " " ) 

if (line (i:i+2) . eq.hlp_str. and. linep. eq. ' ' .and. linepp. eq. ' ' ) then 
write (*,*) line 

do while (line (i : i+2 ) .ne. 'See') 
read (19, ' (A) ' ) line 
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i=nindex (line, " ") 
write (*, *) line 
end do 
go to 900 
else 

linepp=linep 
linep=line 
end if 
end do 
c 

c unknown processing 
c 

do i=l,18 
write (*, * ) line 
read (19, ' (A) ' , err=900) line 
end do 
c 

900 write (*,*) 
return 
end 
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A5.3 gt2.f GRAZTRACE for Command Mode (FORTRAN source code) 


C 

^* ************************************************************** * 
c 

C USER SUBROUTINE FOR SXI TELESCOPE RAY TRACE FOLLOWS 
c 

c 

subroutine user 
c 

c trace sxi system 
c 

implicit double precision (a-h,o-z) 

common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50 ) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50 ) 

* , zlim (2 , 50 ) , adata (25, 50 ) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50), wgt (15,50) ,wgtnet (15) , effa (15) 

* ,pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51 ) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm (50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

q******************* ******************************************** ******* 

dimension enc (500),frac(100), rad (100) , xref (15) , yref (15 ) 
+**+******* + * + * + *******+**+■*+**■*■*****+**++**+■*•**+*+*■***+*•**■*•*•**+*•** + * 

output list file is default to print. gtrace 
open (6, file=' print. gtrace' ) 

********************************************************************** 

flag for readin to open system input file 
istat=l 

**+ + *+**•*** + ********■******** + * + + *■* + **+*******★+***•*■*■**•** + •*■■*•*•*■*•■*■■*•**■*■ + 

number of systems to loop through 
nconic=l 

******************************************************************** 
do 900 iel=l,nconic 

read in the prescription for the first element of the HRMA. 
call readin(l, 'presc. sxi . 2 ' , istat) 
if (istat .ne. 0) go to 900 

********************************************************************* 

modifications 
ihead(2)=' ' 


parabola and hyperbola surface numbers. 
ip=5 
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ih-ll 

c 

c modify parabola and hyperbola surface types, 
c itype (ip) =' grzcon03 ' 

c itype (ih)='grzcon03' 

c 

c reflectivity weight flags and number of energies 
c iwgt(ip)=0 

c iwgt(ih)=0 

c nnrg=l 

c 

if rom=6 
ito=3 

delbet (1, ito, ip) =delbet (1, ifrom, ip) 
delbet (2, ito, ip) =delbet (2, ifrom, ip) 
delbet (1, ito, ih) =delbet (1, ifrom, ih) 
delbet (2, ito, ih)=delbet (2, ifrom, ih) 
energy (ito) =energy (ifrom) 
nnrg=3 
c respace, 
c misc. cases 
d=0.d0 

c assume symmetric respace for the time being 
c (surface 7 is the finished end of the parabola) 

c (surface 8 is to be the position of the 

c mid point between the glass ends) 

thick (7 ) =thick (7) +d/2 .dO 
thick (8) =thick (8) +d/2 . dO 

c leave the distance between the mid point between the glass ends and 
c the nominal image plane unchanged, 
c (surface 16 is the image plane) 
thick (15) =thick (15) -d/2 . dO 
c 

c finite source distance to first surface 
c misc cases 

c zrange=1700.d0*12.d0*25.4d0 

c values from source to center distance and various respace errors 
c (t. casey 910129) 
c zrange=1731 . d0*12 . d0*25 . 4d0 

c nl=l 

c n2=7 

c do 600 i=nl,n2 

c zrange=zrange-thick (i ) 

c 600 continue 
c 

c length of element 

size=zlim(2, ip) -zlim(l, ip) 
c 

c elevation of source 
c elev=50 . d0/3600 . d0*pi/180 . dO 

c 

c azimuth of source 
c azim=0.d0 

c azim=pi/4.d0 

azim=pi/2 .dO 
c azim=0 . 75d0*pi 

c azim=pi 

c azim=7 . d0*pi/8 . dO 
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c modify distance to last surface 
c thick (nsurf-1) =thick (nsurf-1 ) +0 . OlOdO 

c 

c surface tilts 

c tilt (1, ih)=.15d0/3600.d0*pi/180.d0 

c tilt (2,ih)=.15d0/3600. d0*pi/180 . dO 

c tilt (3, ih) =pi/4 . dO 

c imove(ih)=l 

c irstr(ih)=l 

c itilt (ih) =213 

c 

c hyperbola decenter and compensating tilt 
c 

c decenx=0.d0 

c decenx=0 . 254d0 

c deceny=0.d0 

c deceny=0 . 254d0 

c nl=ih 

c n2=nsurf-l 

c zoff=10069 . 21899483571d0 

c comlen=zoff+d/2 .dO 

c do 400 i=nl,n2 

c comlen=comlen+thick (i) 

c 400 continue 

c comtx=-dasin (decenx/comlen) 

c comty=dasin (deceny/comlen) 

c imove(ih)=l 

c irstr(ih)=l 

c dcomtx=0.d0 

c dcomtx= . 15d0/3600 . d0*pi/180 . dO 

c dcomty=0 . dO 

c dcomty= . 15d0/3600 . d0*pi/180 . dO 

c disp (1, ih)=decenx 

c tilt (2, ih) =comtx+dcomtx 

c disp (2, ih)=deceny 

c tilt (1, ih) =comty+dcomty 

c 

c sag error 

c sdata (5, ip) =-400 . d-7 

c sdata (5, ih) =-400 . d-7 

c save minimum radius 

rminsv=radlim(l, 1) 
c save zrange 

zrngsv=zrange 

c modify convergence criterium 
c delta=l.d-7 

c 

c ray print flag 
c kprint(l)=2 

c kprint(2)=l 

c kprint(3)=ip 

c kprint(4)=ih 

c kprint (5 ) =nsurf 

c 

c number of field angles 
nfield=2 
c 

do 200 kk=l,nfield 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c* 

c 

c* 

c 

c* 

c 

c 

c 

c 

c 


adjust field angle 

if (kk.eq. 2) elev=l . d0/3600 . d0*pi/180 .dO 
if (kk. eq. 3 ) elev=50 . d0/3600 . d0*pi/180 dO 
elev=dble (kk-1 ) *1 . d0/3600 . d0*pi/180 . dO 

adjust tilt of first surface and zrange 
to simulate field angle entry 

if (kk. eq. 2 ) then 

tsv=-l .d0/3600. dO*pi/l 80. dO 

tilt (2,l)=t sv 

zrange=zrngsv/dcos (dabs (tsv) ) 

imove(l)=l 

endif 

if (kk. eq. 3 ) then 

tsv=-50. d0/3600. d0*pi/180. dO 

tilt (2 , 1 ) =t s v 

zrange=zrngsv/dcos (dabs (tsv) ) 

imove (1) =1 

endif 


/V lth field an 9 le and source distance, 
radlim (1, 1)— zrange / (zrange+size) * ( rminsv 

* . -dtan (dabs (elev) ) *size ) 

radlim (1,1) =zrngsv/ (zrngsv+size) * (rminsv 

* -dtan (dabs (tsv) ) *size) 

** + ****************************** ilr ^ + ; + + ^ i ^ it + + ^ 

set up the common area, 
call setcom(ierr) 

P r i°t out the system common area 
call rdout ( 6, idum) 

*****w***************************^^^ + ^^^^^^^^ 

do a weighted ray trace with random ray distribution in 

entrance annulus 






ipat=l 


if (ipat.eq. 1) then 


mspot=10000 
rmin=radlim (1,1) 
rmax=radlim (2, 1) 
azmid=0 . dO 
delaz=2 . d0*pi 
azmin=azmid-delaz/2 . dO 
azmax=azmid+delaz/2 . dO 
irand=0 

call ranset (irand) 

call wspotl (mspot, irand, rmin, rmax, azmin, azmax) 


endif 


c* 

c 

c 

c 


do a weighted ray trace with modified 
entrance annulus 


************************* 
wheel spoke distribution 


***** 

in 


Final Report A5.37 



Appendix 5 Command mode source cc 


ipat=0 

if (ipat.eq.l) then 

nlong=10000 

naz=l 

rmin=radlim (1,1) 
rmax=radlim(2, 1) 
azmid=0 . dO 

delaz=2 . d0*pi/200 . dO 
delaz=2 . dO*pi 
azmin=azmid-delaz/2 . dO 
azmax=azmid+delaz/2 . dO 

call wspot2 (nlong, naz, rinin, rinax, azniin, azmax) 


L****"^*^:^!^^”^^^****^******************************** 


c *******?i************************************************************ 

c do a ray trace with modified spoke wheel distribution. 

c (all weights set to 1) . , 

c (constant radial and varying azimuthal increments) 
c to compare with subroutine rfocs m vetasag.f 
c nlong=501 

c naz=72 

c rmin=radlim (1, 1 ) * (1 • dO+1 . d-8 ) 

c rmax=radlim (2 , 1 ) / (1 . dO+1 . d-8 } 

'.....S!li.j!Jl21iSi25SiI“i^;SS5i*.«..*..***********‘*******‘**** 

c do a ray trace with spoke wheel distribution. 

c (all weights set to 1) , n . . . 

c (constant radial and constant azimuthal increments) 

c naz=l 

c nlong=839 

c rmin=radlim(l, 1) * (l.dO+1 .d-8) 

c rmax=radlim (2 , 1 ) / (1 . dO+1 . d-8 ) 

c call grid2 (nlong, naz, rmin, rmax) 

c v 
c 

c loop over energies 

c *****2***22*if***“i**2** ******************************************** 

c refocus 

c *******il*S****ii**************************************************** 

c calculate average position and rms 
if (kk.eq. 1) then 
xref (iener) =0 . dO 
yref (iener) =0 . dO 

call f wstat (iener , xav, yav, wav, wtot, xref (iener) , yref (iener) 

* , foclen, elev) 

c get reference for apparent focal length calculation 
xref (iener) =xav 
yref (iener) =yav 

^*****f*Ji************************************************************ 


c make unweighted spot diagram 
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call spdiag (xav, vav, 0 ) 

r**^;^*^*^* *************************************************** ******* 

c calculate encircled energy distribution 
c maximum angle in arc sec for calculation 

clITlclX — Z . ClO 

c number of calculation points 
na=500 

C n nf=20 ° f fractions for radii calculation 
do 100 i=l, nf 

f rac(i)=dble(i)/dble(nf) 

100 continue 

frac (nf )=frac (nf ) / (1 .dO+l.d-8) 

‘"iamax'itot j 6 ""' ^ yaV ' f ° Clen ' ama *' “« *»=. »d. nf , enc 

r:;r:r;;;;“*i::;*******‘**"‘**********‘****‘*‘***‘*******.*****.* 

300 continue 

r::;r***r*‘‘r*"****‘***‘*‘‘***************************...*..*... 
? uri L e ir: r , sy “t^sj a g ?^ y n y data to fii - 

r"r:r;*;;r:;;u”::r***‘***‘‘*‘****‘**********‘********‘**‘**** 

200 continue 

r;;r;r*‘ * ..........a.................... 

c end of mirror system loop 
900 continue 

end 

=************************“*♦♦***“**********.*.**.*.«.**..*„.* 
c RAY TRACE ROUTINES FOLLOW 

chen program main 

chen implicit double precision (a-h.o-z) 

chen open (6, file= 'print . gtrace ’ ) 

chen call user 

chen stop 

chen end 

subroutine calwgt (lsurf ) 

c and^pdate ^ appUcabla •«**•« lsurf 

c this is only for surfaces with iwgt (lsurf ) =1 
c surface 1 cannot be used to calculate a reflective weight 

implicit double precision (a-h 0-71 

c ************ * *****************-**-**************************** 

* common /syscl/ zrange, elev, azim, foclen, source (3) 

* ' ra • (2,50), dxcirc (50) , dycirc (50) 

* cs°) , d y« ct (5 o, , thwt ,50, 
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* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3,50) , thick (50) ,findex(50) 

* , sdata (25, 50) , delta . 

; energy U 5 )^deibet {2^15, 5o(^wgt (15, 50) .wgtnet (15) , effa (15) 

* 'imove (50) , irstr (50) , iwgt (50) ,nsurf 

, nnrg, kmax, kprint (51) , ichief , ltilt ( ) 

* :Spet (50)?lSbM50) ,itype(50) , imode(50) , i£d£m(50) , ihead(20) 

character * 80 ihead, if dfm. , 

..^.^^Ll^^i^d^iiK"--**********-*"************** 

if (lsurf .le.l) go to 3000 
c cyle through energies 

do 100 i=l, nnrg _ . ^ , n 

c weight is assumed to be l.dO if energy. le. . 

if (energy (i) .gt.O.dO) then. 

c calculate angle of incidence in radians 
dot= 0 .d 0 

do 200 j = l/ 3 

200 dot=dot+ra ( j , lsurf- 1 ) *ra ( 3 , lsurf ) 
anginc= (pi - da cos (dot ) ) / 2 . du 

C get call^metref^anginC/ delbet ( 1 , i, lsur£) , delbet ( 2 , i, lsur£) , rs, rp) 
c assume no polarization 

wgt (i, lsurf ) = (rs+rp) / 2 .d 0 
else 

wgt (i, lsurf ) = 1 . d 0 

endif ^ ^ , 

wgtnet (i)=wgt (i, lsurf) *wgtnet ( 1 ) 

100 continue 
return 
c 

3000 continue 

write (6, 3001) lsurf , , 

3001 format ( 1 o****** calwgt, ivalid surface no. , 16 ) 

write (6, 3002) +****** + * + + **m 

3002 format ( 1 ****** stop 
stop 

subroutine cnvin (spl, ral, sp2, ra2, rmat, disp) 


c 

c 

c 

c 

c 

c 

c 

c 


transform into or out of local coordinates 

input position and direction cosines are spl, ral 
output values are in sp2,ra2 
rmat is transformation matrix 
disp is displacement array 

\ a > . disP < 3 , . ( 3 , 3 , 

dimension tsp (3) , tra (3) 
do 100 i=l,3 
tsp (i) =spl (i) 

100 tra (i) =ral (i) 
do 101 i=l/ 3 
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sp2 (i) =0.d0 
ra2 (i ) =0 . dO 
do 101 j=l,3 

sp2 (i) =sp2 (i) +rmat (i, j ) * (tsp ( j ) -disp ( j ) ) 

101 ra2 (i ) =ra2 (i ) +rmat (i, j ) *tra ( j ) 
return 

entry cnvout (spl, ral, sp2, ra2, rmat, disp) 
do 200 i=l, 3 
tsp (i ) =spl (i) 

200 tra (i)=ral (i) 
do 201 i=l, 3 
sp2 (i) =disp (i) 
ra2 (i ) =0 . dO 
do 201 j=l, 3 

sp2 (i ) =sp2 (i) +rmat ( j , i) *tsp ( j ) 

201 ra2 (i)=ra2 (i) +rmat ( j , i) *tra ( j ) 
return 

end 

subroutine czero 
c 

c zero the common area, this routine is dependent on the 
c size, type, and order of the variables in syscl 
c 

implicit double precision (a-h,o-z) 

-k -k 'k k: "k -k -k 'k •k 'k 'k 'k ^k -k "k 'k 'k rk kr •k 'k kc 'k -k -k 4e -k 'k kr 'k "k -k -k -k kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

c common /syscl/ zrange, elev, azim, foclen, source (3) 
c * , radlim (2, 50) , dxcirc (50) , dycirc (50) 

c * , xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

c * , zlim (2, 50) , adata (25, 50) 

c * , tilt (3, 50) , rmat (3, 3, 50) 

c * , disp (3, 50) , thick (50) , findex (50) 

c * , sdata (25, 50) , delta 

c * , sp (3, 50 ) , ra (3, 50) , spi (3) , rai (3) 

c * , energy (15) , delbet (2, 15, 50) , wgt (15, 50) , wgtnet (15) , effa (15) 
c * ,pi 

c * , imove (50) , irstr (50) , iwgt (50) , nsurf 

c * , nnrg, kmax, kprint (51) , ichief , itilt (50) 

c * , npass, nvig, nerr 

c * , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 
character * 8 itype, imode, iaper, iobs 

common /syscl/ zdum ( 6510 ) , idum (258 ) , cduml (200 ) , cdum2 (70 ) 
character * 8 cduml 
character * 80 cdum2 
do 100 i=l, 6510 
100 zdum(i)=0.d0 
do 200 i=l, 258 
200 idum(i)=0 

do 300 i=l, 200 
300 cduml (i ) = ' ' 
do 400 i=l , 70 
400 cdum2 (i ) = ' ' 

return 
end 

subroutine encirc (iener, xcen, ycen, ft, amax, na, frac, rad, nf , enc 
* ,wamax,wtot) 

£»★ k k k ★ k ★ ★ k k k k k 'k k k k k k k k k k k k k k 'k k k k k k k k k k k k k k k k k k *k k k ★ k ★ k k k k k k k k k k k k k k 'k 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


calculate encircled energy distribution for energy iener 
input : 


iener 
xcen, ycen 

ft 

amax 


na 


f rac 
nf 

output : 

rad 

enc 

wamax 

wtot 

implicit double precision ( 


energy pointer. 

assumed center of encircled energy 

distribution. 

assumed focal length. 

maximum angle considered (arc sec) 

for encircled energy distribution 

calculation. 

number of radius increments for 
encircled energy distribution 
calculation. 

encircled energy fractions 

for radii calculations. 

number of encircled energy fractions. 


radii values calculated for 
nf fraction values input, 
encircled energy distribution 
(at na radius values up to amax) 
weight total up to radius amax 
total weight sum 
-h, o-z) 


common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim (2, 50 ) , dxcirc (50 ) , dycirc (50) 

* , xwidth (50 ) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50 ) 

* , zlim (2, 50 ) , adata (25, 50 ) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50 ) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50) , wgt (15,50) ,wgtnet (15) , effa (15) 

* #pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51 ) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm (50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

common /rsavel/ xpsv (200000 ), ypsv(200000) , dxdzsv (200000) 

* , dydzsv (200000) , entx (200000) , enty (200000) , wtsv (15, 200000) 

* ,zshift,nsv 

qtA: ★ ★ ★ ★ "Ar -Ar ifr + "Ar -Ar ★ ★ ★ Ar Ar Ar A: Ar -A- Ar Ar A: Ar Ar Ar Ar Ar A A A A A A A A A A A A A A A A A A A A A A A A A A A -A- A A A A A A A A A A A 

common /worksp/ bigmat (600000) 

£********* + **** + ** + *********■* + + * + ■*•*■* + * + + ** + **■***■**** + * + *** + +•* + * + + •*•** 


dimension frac (nf ) , rad (nf ) , enc (na) 
dimension work (200000) 
equivalence (work, bigmat ) 

^AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


do 100 i=l,nsv 

work ( i ) =wt sv ( iener , i ) 
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100 5ltrift*dtan(amax/dble(na)/3600.d0*pi/180.d0) 

ne=na 

can'«“xp“?iplv, xcen, ycen, work, nsv, enc, rmax, ne, frac, rad, n£ 

i?e1 6 ; 201 )’ iener, energy (iener) , nsv, xcen, ycen , ft , amax 

ao/fiSSu'lencfrcITenergy distribution for energy ('.12 

* , ’ )= ' , e24 . 16/ 

* ' number of rays ',i7/ , » e o 4 16/ 

: : “ d “ nter: X= assumed' focal^length- ; , e24 . 16/ 

. ■ calculation cut off radius (arc sec - ' 

calculation interval Jarc^e^ ,;«| 4 _ 16/ 


★ » 


. ' fraction of weight within cut off radius- ',e24.16//) 

factor=180.d0/pi*3600.d0 

chen************** 
c pause 

c 

write!*'*) 'Press <Enter> to continue ' 

read (*, * ) 

chen**** *********** 

«ite%t 203 " f i,frac(i) factor*datan Uad <i) /ft) , rad (i) 

Chen 203 i format(^no. s \i3,\c ) . “fw??," ,' iadius- ’,e24.1«) 

2° 3 t fo™tr .no.^i3,', ) tracji',J5 ; 3 radius , ., el 4.6) 

202 continue 
return 

c _J * 

C focus spot in storage array at energy position iener 
=*.*****.***.*.....*********************************“************* 

C common /syscl/ srange.elev.azim^iclen, source ( 

t *,xwidth (50^?ywidtM50) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim (2, 50) , adata (25, 50) 

* tilt (3, 50) , rmat (3, 3,50) 

* ^disp (3,50) , thick. (50) , f index (50) 

* , sdata (25, 50) , delta , 

* ; energy^l5*?deibet'(2^15?50 X ?wgt (15, 50) , wgtnet (15) ,effa (15) 

* ^ imove (50) , irstr (50) ,iwgt (50) ^nsurf 

* ,nnrg, kmax, kprint (51) , ichief , ltilt (5 

! (50) ,itype (50) , imode(50) , ifdfmtSO) , ihead(20) 
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character * 80 ihead,ifdfm 

common /rsavel/ xpsv (20000CM ***** ****************************** 

c \****~-£/w° 

dimension work( 200000 ) ***************************** 

** J . J . J . equivalence (work,bigmat) 

c rioTi:;;;;;**** ************ * ................ 

100 work (i) =wtsv(iener, i) 
c weighted planar focus here 

“hif?Sshift?dei F SV ' dXd2SV ' dydZSV ' " ork ' «v, yav, delz ) 

C report the results 

201 ?cr^u/ ?01 ieigEtJd e p?^r 1 f er) ' nSV ' deU ' zshift '“v,yav 

* ; number of -fi?// 1 foCUS: ener ^ < ’ ' ’ )- ',424.16/ 

* , . . *** stored rays modified *** »// 

delta z - ' ,e24.16, net zshift- » oo/i ic/ 

* ' new x average= • e 24 ifi » zsnitt- ,e24.16/ 

return y ' ,16 ' ' new Y average= ’,e24.16/) 

end 

subroutine gridl (nlong, naz, rmin, rmax) 


this is a routine to trace 
rays . on a grid with constant radial and 
varying azimuthal increments on the first 
surface between radii rmin and rmax 

compare with focus routine in vetasag.f 

ray weights are set to 1 

nlong rays along the radius with ravs hnt-i-^H 

rmin and rmax tn rays butted up against 

r/ rmax* naz rays around the annulus. 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c *****i??ii°ii* *precis ion <a-h, o-z) 

common /syscl/ zranae e lev******^**^*************************** 

: '«dy»(2^^,dx r S?c e ',!j?:dJcir4^ en ' SOUrCe,3) 

: < 50 > (50, , thr e Ct (50, 

* rmab (3,3,50) 

* : sdata ul^SOl'fdelta 0 ^ ' fzndex 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai ( 3 ) 

* ;“«»<«), delbet (2,15,50), wgt (15,50), W9tn.t (15), effa(15) 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

; :?pa r ?4^^ tl51, ' idhief ' itilt < 50 » 

character *' SO^head' ifdfm (50) ' lmode (50) ' ifd fm(50) , ihead (20) 


2470 
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****** 

dimension work (3) , tsp (3) , tra (3) , trmat (3, 3) , tdisp (3) 

initialize ray counts for ssrt and wraysv 

call ssrti 
call wsvi 

if (nlong . gt . 1 ) delr= (rmax-rmin ) /dble (nlong-1 ) 

do 602 i=l,nnrg 
602 wgtnet (i)-l.dO 

do 321 m=l, nlong 

rr=rmin+dble (m- 1 ) *delr 
. n n=rr/rmax*dble (naz ) + 0 . 5 d 0 
c quit if there are no points 
lf(nn.le.O) go to 321 


c 

c 

c 


c 

c 


c 

c 


c 

c 


dela=2.d0*pi/dble (nn) 

do 322 i=l,nn 

theta=dble (i- 1 ) *dela 

tsp (1 ) =rr*dcos (theta) 
tsp (2) =rr*dsin (theta) 
tsp (3) =0 . d0 

transform to source coordinate system 
if (lmove(l) .ne.O) then Y 

do 302 j=l, 3 
rai ( j ) =0 . d0 
tdisp (j ) =disp ( j , 1) 
do 302 k=l, 3 

302 trmat (k, j ) =rmat (k, j , l) 

endif CnV ° Ut (tSp ' rai ' tsp ' tra ' t™*, tdisp) 
c 

c set up direction 
sum=0 . d0 
do 300 j=l, 3 

worlc ^3 ) =tsp (j ) -source (j ) 

300 sum-sum+work ( j ) *work ( j ) 
sum=dsqrt (sum) 

do 301 j =1 , 3 
- ni spi(j)=tsp(j) 

301 rai ( j ) =work ( j ) /sum 
c 

c always put ray in +z direction 
(nai (3) .lt.O.dO) then 
do 303 j=l, 3 
303 rai ( j ) =-rai (j) 
endif 
c 

ktr=2 
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c 

c 

c 


do 600 j=l, nsurf 
call ssrt (j, irstat) 
if (kprint ( 1 ) .ne. 0) then 
call rprint (j , irstat , ktr) 

endif ^ er\-\ 

if (irstat. ne.O) go to 601 

600 continue 

save ray information from last surface 
call wraysv (if ill ) 

601 continue 
322 continue 
321 continue 


350 


write (6,350) npass, nlong, naz, rmin, rmax,elev, azim 

* £ ? rma -modified' s|Skf wheel ££dist?ib»tion on first surface,'/ 

* « varying azimuthal angle increments, / t o 1'/ 

: : ..tf Sdiai n pointi? ^Ji^SSrpSnt.-/ 

*. '■ SES angle' lradiansi= a ^7e24?16/ 

* • azimuth (radians) - ,eZ4.io> 

write (6,465) nvig,nerr . . nr - • 

format (/22x, i7, ' rays were ^netted or 

* ' obscured' /22x, i7 , rays failed in ssrt /) 
if (nerr . ne . 0) then 

351 Em It ufr *** err ° r(S) 

endif 
return 

subroutine grid2 (nlong, naz, rmin, rmax) 


465 




III) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


this is a. routine to trace 
rays on a grid with cons ^^ t f ^ a 
azimuthal increments on the first 
surface between radii rmin and rmax 

ray weights are set to 1 

nlong rays along the radius with rays butted up against 
rmin and rmax 

naz ravs around the annulus 

(rays do not represent equal area on the firs 
surface between rmin and rmax) 

common /syscl/ 2range,elev,azim,f|Clen, source ( 

! ( xwidth (IbilywidthisO) , dxrect (501 , dyrect (50) , threct (50) 
* , zlim(2, 50) , adata (25, 50) 




2 6 9 8 ( 
2699' 


247C. 
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, tilt (3,50), rmat (3,3,50) 

, disp (3,50) , thick (50) ,f index (50) 

, sdata (25, 50) , delta 

'energy U5??delbet '(2^15, 50) ,wgt (15,50) ,wgtnet (15) ,effa (15) 


I imove (50) , irstr (50) , iwgt (50) , nsurf 
, nnrg, kmax, kprint (51) , ichief , it lit (50) 

'iaper'(50KiobM50) , itype (50) , imode (50) , ifdfm(50) , lhead (20) 
character * 80 ihead, ifdfiti § 

„;5^;S5i.*.S.i5SKii?^«i^Jii^;..*.«..*********‘********* 

dimension work (3) , tsp (3) , tra (3) , trmat (3, 3) , tdisp (3) 


c initialize ray counts for ssrt and wraysv 
c 

call ssrti 
call wsvi 

if (nlong.gt.l) delr= (rmax-rmin) /dble (nlong-1) 
dela=2 . d0*pi/dble (naz) 
c 

do 602 i=l, nnrg 

602 wgtnet (i) =1 . d0 

do 321 m=l, nlong 

rr=rmin+dble (m-1) *delr 

if (rr.eq.O.dO) then 
nn=l 
else 
nn=naz 
endif 

do 322 i=l, nn 

theta=dble (i-1) *dela 

tsp (1) =rr*dcos (theta) 
tsp (2)=rr*dsin (theta) 
tsp (3) =0 .d0 

transform to source coordinate system 
if (imove (1) . ne. 0) then 

do 302 j-1,3 

rai(j)=0.d0 

tdisp (j)=disp(j,l) 
do 302 k=l, 3 

302 trmat (k, j ) =rmat (k, j , 1 ) 

call cnvout (tsp, rai, tsp, tra, trmat , tdisp) 

endif 

c set up direction 
sum=0 . dO 
do 300 j-1,3 
work ( j ) -tsp ( j ) -source ( j ) 
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c 

c 


300 

301 


sum=sum+work ( j ) *work ( j ) 

sum=dsqrt (sum) 

do 301 j=l, 3 

spi ( j )=tsp ( j ) 

rai ( j ) =work ( j ) /sum 


always put ray in +z direction 
if (rai (3) .lt.O.dO) then 
do 303 j=l, 3 
303 rai (j)=-rai (j ) 
endif 


ktr=2 

do 600 j=l,nsurf 
call ssrt (j, irstat) 
if ( kprint ( 1 ) . ne . 0 ) then 
call rprint (j, irstat, ktr) 
endif 

if (irstat. ne.0) go to 601 
600 continue 
c 

c save ray information from last surface 


call wraysv (ifill ; 
601 continue 
322 continue 
321 continue 


350 


format ! m ?P ass ' nl °29' naz, rmin, rmax, elev, azim 

iormat ( 1 ,i7, successful rays in grid2 ' / 

: spoke wheel ray distribution on first surface'/ 
annulus, constant azimuthal angle increment,'/ 

, an , CO j? t ? nt radial increment, weights set to 1 ' / 

'tn- . ra o) a L P ? lnts ' '' i7 '' azimuthal points'/ 
rmin- , e24.16, ', rmax= ',e24.16/ 

field angle (radians )= ',e24.16/ 
azimuth (radians) = ',e24.16) 
write (6,465) nvig,nerr 
format (/22x, i7, ' rays were vignetted or ' 
obscured /22x,i7, ' rays failed in ssrt'/) 
if (nerr.ne.0) then 
write (6, 351) 

endif ' *** warning, ray error (s) ***'///) 


* 

* 

+ 

* 

* 

+ 

* 


465 


2 673 Of. 
267801 


return 

end 

subroutine printOl 

£ r****************************** ******* * + 


26980C 

26990C 


- nrin t +. l , *******************************+ 

c P rin t out the syscl common system values 
c ’ 

*****i^Sii double precision (a-h,o-z) 

common /syscl/ zrange, elev, azim, foclen, source (3) 

, radlim(2, 50) , dxcirc (50) , dycirc (50) 
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, xwidth (50) ,ywidth(50) , dxrect (50) f dyrect (50) f threct (50) 

* , zlim (2, 50) ,adata (25,50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3,50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3,50) , spi (3) , rai (3) 

* ' energy (15 ) , delbet (2,15,50), wgt (15,50) , wgtnet (15) , ef fa (15) 

/ pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
0 +***+***********+**********+***********++**+++**+++*++++++++++++++++ 

namelist /si/ ihead, zrange, elev, azim, foclen, source, nsurf, ichief 
, itype, imode, sdata, delta, thick, findex, imove, irstr, itilt, tilt 
, rmat, disp, iaper, iobs, radlim, zlim, dxcirc, dycirc, xwidth 
, ywidth, dxrect , dyrect, threct, adata, iwgt, nnrg, energy, delbet, kprint 

* ,pi,ifdfm 
write (6, 100) 

100 format (' IprintOl syscl common system values') 
write(6,sl) 
return 
end 

subroutine readin (iu, jpresc, istat ) 

c ******* ******** ********** **************************** ^^^^^^^ 
c 

read in data to common area from file in jpresc using unit iu 

C** + ** + **** + + + ****** + + *** + + + + ±* + ** + -)' + + * + * + + * + + +*4 + + + + + + + + ± + + + + + + + + + + 

implicit double precision (a-h,o-z) 
character * 80 jpresc 

c ********** ***************, ******************************, ************* 
common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim (2,50),dxcirc(50), dycirc (50) 

* ' xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

, zlim (2, 50) , adata (25, 50 ) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , findex (50) 

* , sdata (25, 50) , delta 

* , sp(3,50),ra(3,50), spi (3) , rai (3) 

* f energy (15) , delbet (2, 15, 50) ,wgt (15, 50) , wgtnet (15) ,effa (15) 

r PI 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief, itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm (50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
*********************************, *********************************** 
input namelist 

namelist /inp/ zrange, elev, azim, foclen, source 

* , radlim, dxcirc, dycirc 

* , xwidth, ywidth, dxrect, dyrect, threct 

* , zlim, adata 

* , tilt, rmat 

* , disp, thick, findex 
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* , sdata, delta 

* , energy, delbet, effa 

* , imove, irstr, iwgt, nsurf 

* f nnrg , kmax, kprint, ichief , itilt 

* , npass, nvig, nerr 

* , iaper, iobs, itype, imode, ifdfm, ihead j 

*************************************************************** 

if (istat.ne.l.and.istat.ne.O) go to 3000 
c open the file if istat.eq.l 

if (istat.eq.l) open (iu, f ile=jpresc) 
is tat=0 

fr****************************************************************** 

zero the common area ( this is dependent on array dimensions) 
call czero 
set pi 

******* ***++*i*i++ ******* *********************************** ****** 

read file in jpresc using unit iu 
read (iu# inp , end = 2000 , er r~3 000) 

***************?***++********************************************** 
return 

a****************************************************************** 

end of file 
2000 continue 
close (iu) 
istat=2 
return 

*+*****++**+*+**+**+*********************************************** 
readin error 
3000 continue 
istat=-l 
return 
end 

subroutine rdout (iu, istat) , , , , 

«******************************************************************* 


c write out syscl common area to unit iu. 
c error flag is istat ne 0 

^***** ******************************************************* ******* 
implicit double precision (a-h,o-z) . 

c * ******* *********+++***+++***+************************** 
common /syscl/ zrange, elev, azim, foclen, source (3 ) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* ,xwidth (50) ,ywidth (50) ,dxrect (50) ,dyrect (50) , threct (50) 

* , zlim(2, 50) ,adata (25,50) 

* , tilt (3,50) ,rmat (3,3,50) 

* , disp (3,50), thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp(3,50),ra(3,50), spi (3) , rai (3) 

* , energy ( 15 ) , delbet ( 2 , 15 , 50 ) , wgt ( 15 , 50 ) , wgtnet ( 15 ) , effa ( 15 ) 

* , pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51 ) , ichief , itilt (50) 

* iaper^O) ^iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
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c input namelist 

namelist /inp/ zrange, elev, azim, foclen, source 

* , radlim, dxcirc, dycirc 

* , xwidth, ywidth, dxrect , dyrect , tnrect 

* , zlim, adata 

* ,tilt,rmat 

* , disp, thick, f index 

* , sdata, delta 

* , energy, delbet, ef fa 

* , imove, irstr, iwgt, nsurf 

* , nnrg, kmax, kprint, ichief , itilt 

c ****I*i*5t*ft*y*fi************************************************* 

istat=0 

c ******fiifii*ii2Si*“**222l**************************************** 

c character arrays must be dealt with separately 
c due to bug in sun4 fortran compiler 
c 

backspace iu 
write (iu, 101, err=3000) ( 

101 w?Suu,io2?err-3000) ( //iobs(i)// ,i*l, nsurf) 


1 "//iaper (i) i=l* nsurf ) 


102 ( / / itype (i) i=l< nsurf) 


» "//imode (i) i=l, nsurf ) 
* "//ifdfm(i) II"'" t i=l/ 50) 


103 format (’ itype=',5(a 
write (iu, 104, err=3000) 

104 f ormat ( ' imode=' , 5 (a) ) 
write (iu, 105, err=3000 ) 

105 formate ifdfm=',(a)) .... //lff „ ■ 9m 

write ( iu, 106, er r = 3 000 ) ( / / lhead ( i ) // , / 

106 formate ihead=',(a)) 
write (iu, 9999, err=3000) 

9999 formate Send’) 

*******i*********************************************************** 

rdout error 
3000 continue 
istat=-l 
return 
end 

subroutine rprint (lsurf , irstat, ktr) 

c print out ray surface information according to kprint array 
c initialize ktr to 2 before each ray is traced 
c print no rays if kprint (1)=0 

c print all rays if kprint (1)=1 . . , 

c print selected rays and failed rays if kprint (1) 2 
c selected rays must be listed m increasing order starting 

c in kprint (2) up to kprint (51) 

c otherwise print only failed rays 

l**.*^H;ii.2;Sif*s“si«“*«‘“°**i**************************** 
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common /syscl/ zrange, elev, azim, foclen, source (3) 

, radlim (2, 50 ) , dxcirc (50 ) , dycirc (50) 

' (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

, zlim (2, 50) , adata (25, 50) 

, tilt (3,50) ,rmat (3,3,50) 

, disp (3, 50) , thick (50) , findex (50) 

, sdata (25,50) , delta 
, sp(3,50) ,ra (3,50) , spi (3),rai (3) 

, energy (15) , delbet (2, 15, 50) , wgt (15, 50) ,wgtnet (15) , ef fa (15) 

t 

, imove (50) , irstr (50) , iwgt (50 ) , nsurf 
, nnrg, kmax, kprint (51) , ichief , itilt (50) 

, npass, nvig, nerr 

,iaper(50) , iobs (50) , itype (50) , imode (50) , ifdfm (50) , ihead (20) 
character * 80 ihead, ifdfm ' ' 

character * 8 itype, imode, iaper, iobs 

c ************+************************^^^ + ^^^^^^^ 

c 


* 

* 

* 

* 

* 

★ 

* 

■Jr 

Jr 

Jr 

Jr 

Jr 

* 


if (irstat .eq. 0) then 
if (kprint (1) .eq. 1) then 

wrd ^ e ®1® ) Isurf , (sp (i, lsurf ) , i=l, 3) , (ra (i, lsurf ) , i=l, 3) 


if (iwgt (lsurf) .ne.0) then 
do 100 i=l,nnrg 

write (6,101) i,wgt (i, lsurf) , wgt net (i) 

100 continue 
endif 

else if (kprint (1) .eq. 2) then 
if (lsurf .ne. kprint (ktr) ) go to 1000 

write (6, 910) lsurf, (sp (i, lsurf ) , i=l, 3) , (ra (i, lsurf ) , i=l, 3) 

if (iwgt (lsurf ) .ne. 0) then 
do 102 i=l,nnrg 

write (6, 101) i, wgt (i, lsurf ), wgtnet (i) 

102 continue 
endif 


ktr=ktr+l 

endif 


c 


c 


1000 

101 

910 

915 

921 


else if (irstat. gt. 0) then 

if (kprint (1) .ne.0) write (6, 915) lsurf , irstat 
else if (irstat. It. 0) then 

if (kprint (1) .ne.0) write (6, 921 ) lsurf , irstat 
endif 


continue 
format ( ’ 
format ( ’ 
format ( ? 
format ( ' 
return 
end 

subroutine rstart(ierr) 


energy ( ' , i2 , ' ) , wgt= ' , e24 . 16, ' , wgtnet-' ,e24 . 16) 

',i6,2x,3e24.15/21x, 3e24 .15) 

', i6, 2x, ' ray vignetted, irstat=',i6) 
',i6,2x,'ray error, irstat=',i6) 
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set ud rotation matricies for surfaces with imove eq 1 ...... 

order^of rotation is x,y,z ie 1,2,3 unless reset wrth nonzero itilt 
(see code below for form of itilt) 

rotations are right handed about each axis . . lt (radians) 

rotation matrices are determined from tilt angles in tilt (radia 

common /syscl/ zrange, elev, azim, foclen, source (3) 

, radlim(2, 50) , dxcirc (50) , dycirc (50) 

, xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

, zlim (2 , 50 ) , adata (25,50) 

, tilt (3,50), rmat (3, 3, 50) 

, disp (3,50) , thick (50) , f index (50) 

, sdata (25 , 50 ) , delta . 

, sp (3, 50) , ra (3, 50) ,spi (3) ,rai (3) 

, energy (15) , delbet (2,15,50) , wgt (15, 50) , wgtnet (15) , ef fa (15) 

, pi 

, imove (50) , irstr (50) , iwgt (50) , nsurf 
, nnrg, kmax, kprint (51) , ichief , itilt (50) 

) iaper^Ohiobs (50) ,itype(50) ,imode(50) ,ifdfm(50) ,ihead(20) 
character * 80 ihead,ifdfm 

...„,^«S!L:*!.ii^d"---S--*-*************‘********“*** 


* 

* 

* 

★ 

★ 

★ 

★ 

* 

* 

+ 

* 

* 

* 


do 100 i=l, nsurf 

c cut out if surface is not transformed or if rotation is 
c not specified by tilt() . 

if (imove ( i ). ne . 1 ) go to 100 
c get rotation sequence 

if (itilt (i) .eq.0) then 

iseq (1 ) =1 

iseq (2 ) =2 

iseq (3) =3 

else 

iseq (1 ) =mod ( itilt (i ), 10 ) 
iseq (2) =mod (itilt(i) ,100)/10 
iseq ( 3 ) =mod (itilt (i) , 1000) /100 


endif 

c initialize matrix to unit 
do 200 j=l,3 
do 200 k=l, 3 
if ( j .eq. k) then 
rtempb ( j , k) =1 . dO 


else 

rtempb ( j , k) =0 . dO 
endif 

200 continue 

c determine the effect of each tilt 
do 300 j=l,3 

if (iseq ( j ) . eq . 0 ) go to 300 
if (iseq ( j ) .eq. 1) then 
c=dcos (tilt (1, i) ) 
s=dsin (tilt (1, i) ) 
rtempa (1, 1) =1 -dO 
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rtempa (l,2)=0.d0 

rtempa (1, 3)=0.d0 

rtempa (2, 1) =0 . dO 

rtempa (2, 2) =c 

rtempa (2, 3) =s 

rtempa (3, 1 ) =0 . dO 

rtempa (3, 2) =-s 

rtempa (3, 3) =c 

elseif (iseq(j) .eq.2) then 

c=dcos (tilt (2, i) ) 

s=dsin (tilt (2, i) ) 

rtempa (1, 1) =c 

rtempa (1, 2)=0.d0 

rtempa (1, 3) =-s 

rtempa (2, l)=0.d0 

rtempa (2,2)=l.d0 

rtempa (2, 3)=0.d0 

rtempa (3, 1) =s 

rtempa (3, 2)=0.d0 

rtempa (3, 3) =c 

elseif (iseq(j) .eq. 3) then 

c=dcos (tilt (3, i) ) 

s=dsin (tilt (3, i) ) 

rtempa (1, 1) =c 

rtempa (1, 2) =s 

rtempa (1, 3)=0.d0 

rtempa (2, l)=-s 

rtempa (2, 2)=c 

rtempa (2, 3)=0.d0 

rtempa (3, 1) =0 .dO 

rtempa (3, 2 ) =0 . dO 

rtempa (3, 3) =1 . dO 

else 

go to 3000 
endif 

c accumulate net rotation matrix by matrix multiplication 
can matab (rtempa, rtempb, rtempb, 3,3,3, rtempc) 

300 continue 

c put the result in rmat 
do 400 j =1 , 3 
do 400 k=l, 3 

400 rmat (j, k, i ) =rtempb ( j , k) 
c 

100 continue 
c 

ierr=0 


return 


c 

c error return 
c 


3000 continue 
ierr=l 
return 
end 

subroutine setcom(jerr) 




* ★ * 


★ ★ 
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c set up common data after readin or modification of corranon 
c ]err is 0 normally or 1 for error 
c 

c ***********************************„^^^^ 4 ^^^^^^ 
implicit double precision (a-h.o-z) 

c *************************„******„ iMtHiHOiMHiMHtMMtiMiM 
common / syscl/ zrange, elev, azim, foclen, source (3) 

, radlim(2, 50) , dxcirc (50) , dycirc (50) 

* ( ^S! ,y ^ i ? tl )ic 0 h^ lxrect (50) ,dyrect (50) , threct (50) 

, zlim (2, 50) , adata (25, 50) 

* , tilt (3,50) , rmat (3,3,50) 

* ,disp(3,50) , thick (50), f index (50) 

* , sdata (25, 50) , delta 

* , sp(3,50),ra(3,50), spi (3) , rai (3) 

* 'Energy (15) ,delbet (2, 15, 50) , wgt (15, 50) , wgtnet (15) ,effa (15) 

f PI 

* ' imove (50) , irstr (50) , iwgt (50) , nsurf 

* » nnr 9f kmax, kprint (51) , ichief, itilt (50) 

, npass, nvig, nerr 

‘chaS«ir°i' Behead; if SIS (5 °’ ' im ° de <50 ’ ' ifdfm(50 > ' ihead (20] 

character * 8 itype, imode, iaper, iobs 
jerr=0 

c ****«****************** hhw * hhhmmmmh ************** 

c set source position relative to undisplaced center of first surface 
c set zrange positive for source in front of first surface 

c set zrange large for infinite conjugate 

c azim is azimuthal angle in radians of source ray. 

c azim is positive from x axis toward y axis, 

c elev is angle in radians of field angle 

source (1) =-zrange*dtan (elev) *dcos (azim) 
source (2 ) =-zrange*dtan (elev) *dsin (azim) 
source (3)=-zrange 

c imove ne 0 for surface means surface coordinate transformation 

Set m ^ricies from tilts for surfaces with imove eq l] 

can rstart(ierr) ^ 

if (ierr.ne. 0) go to 3000 

c****************************************^^^^^^^^ 

c 

c check for deformed surface file input 
iurdfm=7 

call rdfm(iurdfm) 
c 

return 

c***********************************„ MiM „ iMM ^ itMi ^ Mi ^ i4M 
c readin error 
3000 continue 
jerr=l 
return 
end 

subroutine spdiag (xcen, ycen, npoint) 

c +*** + *+** + ****** + *********^ + ^^^^^ + ^^^^^^^ 
c 

c make up line printer spot diagram from storage array 
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c use first npoint rays 

c ...**iKii;ii*SS!;5if*SSSi!i22.1;«i2«i.************‘**‘********‘*‘ 

common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2 f 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50) , ywidth (50) , dxrect ( 50 ) , dyrect (50) , threct (50) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25 , 50 ) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) . . 1( .. ff aM c, 

* , energy (15) , delbet (2,15,50) , wgt ( 15 , 50 ) ,wgtnet (15) , effa (15) 

* , pi 

* , imove (50) , irstr (50) , iwgt (50) ,nsurf 

* , nnrg, kmax, kprint (51) , ichief , ltilt (50) 

* iaper^SObiobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

c **.**S£555SK5.:.S.ii»SiiT5f;ti«eJtiS55 — * — *« 

" common /rsavel/ xpsv(200000) , ypsv(200000) dxdzsv (200000 ) 

* , dydzsv (200000 ) , entx (200000) , enty (200000) ,wtsv(15, 200000) 

......... *************************************** 

c .„**;;^;:*(-!E^-i^ii*222;2i..*.*.*......**.****.*********** 

dimension workx (200000) , worky (200000) ?noooi \ 

equivalence (workx (1) ,bigmat (1) ) , (worky d ) , bigmat (200001T 

c *****+2************************************************* 


lr + ★ * Vr 


nn=nsv 

if (npoint. gt.0) then 

if (nsv.gt. npoint) nn=npoint 

endif 

do 100 i=l,nn 
workx (i) =xpsv (i) -xcen 
worky (i)=ypsv(i) -ycen 
100 continue 

write (6, 201) nn, nsv, xcen, ycen 
201 f ormat ( ' 1 spot diagram: first ' ,i7, 
* ' assumed center: x = ',e24.16,', 

call splot (nn, workx, worky) 
return 
end 

subroutine ssrt (is , irstat ) 


rays of',i7,' stored'/ 
y = ' , e24 .16) 


c single surface ray trace to surface is 
c 

c irstat=0 for succesful ray 
c irstat=l for vignetted ray 
c irstat=-l for ray error 

implicit double precision (a-h,o-z) 






common /syscl/ zrange, elev, azim, foclen, source ( 
* , radlim (2, 50) , dxcirc (50) , dycirc (50) 


* + * 
3) 


+ + 






60370C 

60510C 

60470C 

60540C 
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* , xwidth (50 ) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15 ) , delbet (2,15,50), wgt (15,50), wgtnet (15) ,effa (15) 


* ,pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 


c** 


* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper , iobs 
** + + ******* + + + + *•*■*•** + *• + + **■*•*• + ■*•***** + ***** + + ** + ****** + *'*•*********** 


c displace to z=0 at surface is, in is-1 coordinates 
c 

if(is.gt.l) then 

sp (1, is)=sp (1, is-1) +ra (1, is-1) * (thick (is-1) -sp (3, is-1) ) /ra (3, is-1 
sp (2, is)=sp (2, is-1) +ra (2, is-1) * (thick (is-1) -sp (3, is-1) ) /ra (3, is-1 
sp (3, is )=0 . dO 
do 601 i-1,3 

601 ra (i, is) =ra (i, is-1 ) 
else if(is.eq.l) then 

sp (1, is) =spi (1) -spi (3) *rai (1) /rai (3) 
sp (2 , is ) =spi (2) -spi (3) *rai (2) /rai (3) 
sp (3, is) =0 . dO 
do 602 i-1,3 

602 ra (i, is) =rai (i) 
endif 


c*************************************-***'***-***-********************* 

c tilt and displace, then reset to z=0 in is coordinates 
c 

if (imove (is ) . ne . 0 ) then 


c 

call trfin(is) 


sp (1, is)=sp (1, is) -ra (1, is) *sp (3, is) /ra (3, is) 
sp (2, is ) =sp (2,is)-ra(2,is)*sp(3,is)/ra(3,is) 
sp (3, is ) =0 . dO 
c 

endif 

(-.+* + * + + + * + * + + + ■*•*•*■•*•*•*•* + *■ + *■* + *■*■* + + + ■*• + + * + + + *** + * + * + + + * + + *** + ** + ******** + * 
c trace ray 
c 

c grazing incidence conic or reflecting flat 
c 

if (itype (is) .eq. 'grzconOl' ) go to 201 
if (itype (is) .eq. 'grzcon02’ ) go to 201 
if (itype (is) .eq. ' grzcon03' ) go to 201 
if (imode (is ) . eq. ' ref 1 ' . and . itype (is) . eq. 

* ' flat ' ) go to 201 
if (itype (is) .eq. 'grzconll' ) go to 203 
if (itype (is) . eq. ' grzconl2 ' ) go to 203 
if (itype (is) .eq. 'grzconl3' ) go to 203 


) 

) 


61160000 


61530000 

61540000 
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c 

if (itype (is) .ne. 'flat' ) go to 500 
if (imode (is) .ne. ' thru' ) go to 500 
c 

go to 202 

201 continue 

call strace (isterr, is) 
if (isterr.ne. 0) go to 500 
go to 202 
203 continue 

call strc02 (isterr, is) 
if (isterr . ne . 0 ) go to 500 

202 continue 

c check for vignetting in surface frame 
c skip this if ichief is 1 
if (ichief . ne . 1 ) then 
ivig=0 

if (iobs (is) . ne . ' ' .or.iaper (is) .ne. ' ') 

* call vignet (ivig, is) 
if (ivig.ne. 0) go to 550 
endif 

£++*+*+**+++**+++*+++++++++++■+++*+++++++++*+++++++++++++++++++++++++++ 
if (is.eq.nsurf ) npass=npass+l 

q********************************************************************* 

c restore coordinates if necessary and if desired 
c 

if (imove (is) . ne . 0 . and. irstr (is) .ne.0) then 

call trfout(is) 

endif 

q******************************************************************** 

return 

q + * + * + + * + + + + ir + + + + * + + + + + + + + + + + + + + + + + + + + + + + + + + + ^ lr ★ * * * 

c trace error 
500 continue 
irstat=-l 
nerr=nerr+l 
return 

★ it************************************************************.****.*.,*. 

ray vignetted 
550 continue 
irstat=l 
nvig=nvig+l 
return 

£***+****+**++**★**+******+*++*+*****★+**★*★*★+*+***+++***+*+**+++**+ 
c ray count initialization 
entry ssrti 
npass=0 
nvig=0 
nerr=0 
return 
end 

subroutine strace (isterr, is) 
implicit double precision (a-h,o-z) 

£*★* **★****★ + ■*-* + ** ****** + + * + ** + ** + + + *★ + ********★*★* + **** + ***** + ■****** 
common /syscl/ zrange, elev, azim, foclen, source (3 ) 

* , radlim (2 , 50 ) , dxcirc (50 ) , dycirc (50) 

* ,xwidth (50) , ywidth (50) , dxrect (50) ,dyrect (50) , threct (50) 


6207' 


65970( 

65980C 

65990C 

66000C 
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* , zlim (2, 50 ) , adata (25,50) 

* , tilt (3,50) ,rraat (3,3,50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* ,sp(3,50),ra(3,50), spi (3) , rai (3) 

* , energy (15) , delbet (2, 15, 50) , wgt (15, 50) ,wgtnet (15) , effa (15) 

* ,pi 


* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm (50) ,ihead(20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

C+' k **' l '* + * + + + + + ± + ** + *+ + + * + + *+--k + + + + -lr + + ->' + -tr + + -H' + -lr+-)' + + + + + -k + -) r -)r-)r + + + + + + + + + + + 

c common for communication with user trace 


c ***++**TT+*{*f+f**{**^i*i*i**i*^ifft isurf ' ifcalc,isferr 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


trace to surface 'is' (this version is for reflection or 

dummy surfaces only) 

input is: starting ray position sp(,is) 

starting direction cosines ra(,is) 

output is: new ray position sp(,is) 

new direction cosines ra(,is) 
isterr ne 0 for ray error 


isterr=0 


c 

C** ** + ********* + *+’ + + + * + + + **** + ± + + **■■*: + *■*■** + ± -lr -tr* -k * + + *+ ± + + + + + + + + + + + + + + +. 

c 

c find intercept 
c 

c set surface number for user trace 
isurf=is 


c initialize ray position and direction 
x=sp (1, is) 
y=sp (2, is) 
z=sp (3, is) 
dxds=ra (1, is) 
dyds=ra (2, is) 
dzds=ra (3, is) 

c +***** + + * + **** + + + + ************ + + *. + *.****** + Jr * + + + + + + ilr + + + + + ^ + ilr + + + ilr + it + 


c 

c direct calculation here 

if (itype (is) .eq. ' grzconOl ' .or. itype (is) .eq. ' grzcon03' ) then 
call utraci 

if (isferr.eq.l) go to 3000 
endif 


c 




c 

c iteration here 
c 

if (itype (is) .eq. 'grzcon02 ' .or. itype (is) .eq. 'grzcon03' ) then 
c initialize iteration count 
kount=0 
c debug print 


32901000 

32902000 

33020000 

33030000 

33350000 


33390000 


33420000 

33430000 

33432000 

33433000 

33434000 

33470000 

33480000 

33490000 

33492000 

33540200 

33540300 

33540400 

33540700 

33540800 

33540900 


33500000 

33510000 

33541000 
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c write (6, * ) is, x, y, z , dxds, dyds, dzds, delta, kmax 
c 

c require function value calculation in user trace 
if calc=l 

c iteration loop for intercept 
100 continue 

kount=kount+l 

if (kount .gt . kmax) go to 3000 
call utrace 

if (isferr.eq. 1) go to 3000 
ds=-f/ (fx*dxds+fy*dyds+f z*dzds) 
x=x+dxds*ds 
y=y+dyds*ds 
z=z+dzds*ds 
c debug print 

c write ( 6, * ) kount, ds,x,y,z,f,fx,fy,fz 

c 

if (dabs (ds ). le . delta) go to 400 
go to 100 
400 continue 


c******************************************************************** 

c calculation for outgoing ray 

c (currently covers reflection and thru surfaces only) 
c 

if (imode (is) .eq. ' refl ' ) then 
c dont need function value here 
ifcalc=0 
call utrace 

if (isferr.eq. 1) go to 3000 

c= (dxds*fx+dyds*f y+dzds*f z ) / (fx**2+fy**2+f z**2 ) 
ra (1, is) =dxds-2 . d0*c*fx 
ra (2,is)=dyds-2.d0*c*fy 
ra (3, is) =dzds-2 . d0*c*f z 
c debug print 

c write (6, *) x, y, z, fx, fy, f z 
c 

elseif (imode (is ). eq .' thru ' ) then 
else 

c invalid surface 
go to 3000 
endif 
c 

sp (1, is) =x 
sp (2 , is ) =y 
sp (3, is) =z 
c 

return 

3000 continue 
c error return 

write (6,3001) 

3001 formate *** strace error, isterr set to 1 *** ') 

isterr=l 

return 

end 

subroutine trfin(is) 


33541 

33541 

33541 

33542 
33550 
33560 
33570 
33600 
33620 

33690 

33691 

33692 

33693 

33695 

33696 

33720 

3373C 

3373] 


3374C 

3374C 

3374C 

3374] 

3374] 

3374] 

33741 

3374] 


3374! 

3374: 

3374 

3389. 


3393 

3394 

3395 

3396 

3396 

3397 

3398 

3399 
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c transform into or out of local coordinates at surface is. 
c sp ( , is ) , ra ( , is ) are input, 
c sp (, is) , ra (, is) are replaced 
c 

c trfin transforms into local coordinates 
c trfout transforms out of local coordinates 
c 


implicit double precision (a-h, o-z ) 
£**++**++*****★*+*****+ **************** *********** 




•A- Ar Ar Ar 


c** 


common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50 ) , thick (50) , f index (50 ) 

* , sdata (25 , 50 ) , delta 

* , sp(3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50) ,wgt (15, 50) ,wgtnet (15) , effa (15) 

* f pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

ArArArArArArArArArA'ArA'* + + ArArArA r A-ArArArAr*ArArAr* + ArA-*ArAr*A-A-A-ArArA-A-* + + A'A-A- + * + ****Ar + AtAr 1 lrA'A'Ar*Ar 


dimension tsp (3) , tra (3) 
do 100 i=l, 3 
tsp (i) =sp (i, is) 

100 tra (i)=ra (i, is) 
do 101 i-1,3 
sp(i,is)=0.d0 
ra (i, is)=0.d0 
do 101 j-1,3 

sp (i, is) =sp (i, is) +rmat (i, j , is) * (tsp ( j ) -disp ( j , is) ) 

101 ra (i, is ) =ra (i, is)+rmat (i, j , is) *tra (j ) 
return 

entry trfout (is) 
do 200 i-1,3 
tsp (i) =sp (i, is) 

200 tra (i) =ra (i, is) 
do 201 i-1,3 

sp (i, is) =disp (i, is) 
ra (i, is) =0 . dO 
do 201 j-1,3 

sp (i, is) =sp (i, is) +rmat ( j , i, is) *tsp ( j ) 

201 ra (i, is) =ra (i, is) +rmat ( j , i, is) *tra ( j ) 
return 

end 

subroutine utrace 


c 

c 

c 

calculate function 

f and gradient fx, fy, 

c 

c 

input 

x, y, z 

position 

c 

isurf or n 

surface number 

c 

itype (n) 

surface type 

c 

sdata ( . . . , n) 

surface parameters 


33991000 

33991100 

33991200 

33991400 

33991500 

33991600 

33991700 

33991900 

33992000 
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c ifcalc 

c output 
c f 

c fx,fy,fz 

c isferr 

c 


calculate function value if ifcalc=l 

function value 
gradient of function 
non zero if error occurs 


c 


implicit double precision (a-h,o-z) 

★ ★★★•A-**************************************** 




■Ar 

★ 

★ 

* 

* 

★ 

* 


common /syscl/ zrange, elev, azim, foclen, source (3 ) 

, radlim (2, 50) , dxcirc (50) , dycirc (50) 

, xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 
, zlim (2, 50) , adata (25,50) 

, tilt (3,50), rmat (3,3,50) 

, disp (3, 50) , thick (50) , f index (50) 

, sdata (25, 50) , delta 


/ 

/ 


sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

energy (15) , delbet (2,15, 50) ,wgt (15,50) ,wgtnet (15) ,effa (15) 


■Ar 


* ,pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm (50 ) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
******************************** ************* * *********** *********** 


common for communication with user trace 

common/userdt/x, y, z, f , fx, fy, f z, isurf , ifcalc, isferr 

£********************+********************************************** 
equivalence (n, isurf ) 
c 

isferr-0 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


if (itype (n) .eq. f grzcon01 T .or, itype (n) .eq. 'grzcon02 f 
* . or. itype (n) .eq. f grzcon03 T ) then 

*** + ***** + **** + * + *************1 t*************************************** 


grazing conic plus sag 

error: 

rho at z=0 

sdata (1, n) 

subnormal at z=0 

sdata (2, n) 

l-e**2 

sdata (3, n) 

full mirror length 

sdata (4 , n) 

zero-peak sag error 
(mirror ends fixed) 

sdata (5, n) 

delta-r error 

sdata (6, n) 


rhosq=sdata (1, n) **2+2 .d0*sdata (2, n) *z-sdata (3, n) *z**2 

if (rhosq. le . 0 . dO ) go to 3000 

rho=dsqrt (rhosq) 

rad=dsqrt (x**2+y**2 ) 

if (rad. le . 0 . dO ) go to 3000 

fx=x/rad 

fy=y/rad 

f z= z* (sdata (3, n) /rho+8 . d0*sdata (5, n) /sdata (4, n) **2) 


3399 

3399 

3399 

3399 

3399 

3399 

3399 


32901 

32902 

34011 

34011 

34012 
34012 


34012* 

34012', 

340126 

34012S 

34013C 

340134 

34013 

34013/ 
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* -sdata (2, n) /rho 

if (ifcalc.eq.l) then 
f=rad- (rho 

* -4 . dO*sdata (5, n) * ( (z /sdata (4, n) ) **2-l.d0/4 .dO) +sdata (6, n) ) 
endif 


elseif (itype (n) .eq. ’ flat ' ) then 

flat surface 
fx=0.d0 
f y=0 . dO 
fz=l.dO 

if (if calc . eq . 1 ) f=z 

* + + + + * + + * + + * + + + + * + * + + + + + + + * + + + + + + + + + + + + 


else 

invalid surface 
go to 3000 
endif 
return 

3000 continue 
computation error 

write (6, 3001 ) 

3001 format ( ' *** 

isferr=l 
return 


utrace error, isferr set to 1 ***') 




entry utraci 
isferr=0 

if (itype (n) .eq. 'grzconOl' . or. itype (n) .eq. 'grzcon03' ) then 
c 

c direct calculation of intercept of ray with concave grazing conic, 
c take error return for two solutions within element 

c (in case of a convex optic this could be changed to take the first 
c solution within the element) 

c take first solution if there is no solution within the element, 
c cut out to error return for no solution 

c (in case of no solution, if desired, one could artificially set the 
c outside of the element to be vignetted) 
c 

c look for solutions 
c 

a=ra (l,n) **2+ra (2,n) **2+sdata (3, n) *ra (3,n) **2 
b=2 . dO* (sp(l,n) *ra (1, n) +sp (2, n) *ra (2, n) -sdata (2,n) *ra (3,n) ) 
c=sp (1, n) **2+sp (2, n) **2-sdata (1, n) **2 
isol=0 
c 

if (a . eq . 0 . dO ) then 
if (b.eq. O.dO) then 
c no solution 

go to 3000 
endif 
sol=-c/b 
isol=l 

elseif (c.eq. O.dO) then 
if (b.eq. 0 .dO) then 


34013800 

34013900 

340140.00 

34014100 

34014200 

34014300 


34014500 

34016000 

34017000 

34018000 

34018100 

34019000 

34019700 

34019800 

34019900 

34020000 

34030000 

34031000 

34031100 


34032000 

34033000 


solution 
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sol=0.d0 

isol=l 

else 

sl=0.d0 

s2=-b/a 

endif 

0 JL S6 

if (b.eq.O.dO) then 
arg=-c/a 

if (arg . It . 0 . dO) then 

c no solution 

go to 3000 
endif 

sl=dsqrt (arg) 
s2=-sl 
else 

arg=b**2-4 . d0*a*c 
if (arg . It . 0 . dO ) then 

c no solution 

go to 3000 
endif 

arg=dsqrt (arg) 
denoml=b+arg 
denom2=b-arg 
if (denoml.ne.O.dO) then 
if (denom2 . ne . 0 . dO ) then 
sl=-2 . d0*c/denoml 
s2=-2 . d0*c/denom2 
else 

sol=-2 . d0*c/denoml 
isol=l 
endif 

elseif (denom2 . ne . 0 . dO ) then 
sol=-2 . d0*c/ denom2 
isol=l 
else 

c no solution 

go to 3000 
endif 
endif 
endif 

c 

c make selection of solution if it is not unique. 

c 

if (isol . eq . 0) then 

test=sdata (4, n) /2 .dO 
zl=dabs (sl*ra (3, n) ) 
z2=dabs (s2*ra (3, n) ) 
if (zl.lt. test) then 
if (z2 .It .test) then 

c two solutions within element 

c (there could actually be two solutions within 

c the element or this could also be caused 

c by a numerical problem above) 

go to 3000 
else 
sol=sl 
endif 
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elseif (z2.lt. test) then 

sol=s2 

else 

sol=sl 

if(s2.1t.sl) sol=s2 
endif 

endif 

c 

c move to the solution point 
c 

x=sp (1, n) +ra (1, n) *sol 
y=sp (2, n) +ra (2, n) *sol 
z=ra (3, n) *sol 
c 

else 

c invalid surface 
go to 3000 
endif 

return 

end 

subroutine vignet (ivig, is) 
c 

c check for vignetting at surface is 
c ivig ne 0 if ray is vignetted 
c 

implicit double precision (a-h,o-z) 
c + * + + ****** + ** + * + •*-* + ** + ** + * + + * + * + * + + * + ** + * + ** + *** + **** + ** + + ********* * 
common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim (2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50), ywidth (50) , dxrect (50) ,dyrect (50) , threct (50) 

* , zlim (2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2, 15, 50) , wgt (15,50) ,wgtnet (15) , effa (15) 

* , pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper , iobs 

if (iobs (is) . eq. ' circ' ) then 

rad=dsqrt ( (sp (1, is) -dxcirc (is) ) **2+ (sp (2, is ) -dycirc (is) ) **2) 

if (rad.gt . radlim (1, is) . and. rad . It . radlim (2, is) ) go to 550 

else if (iobs (is) .eq. ' rect ' ) then 

xxp=sp (1, is) -dxrect (is) 

yyp=sp (2, is) -dyrect (is) 

call rotate (xxp, yyp, -threct (is) , xx, yy) 

if (dabs (xx) .It. xwidth (is ) /2 . dO . and. dabs (yy) .It. ywidth (is) /2.d0) 

* go to 550 

else if (iobs (is) .eq. ' zlim' ) then 

if (sp (3, is ) . gt . zlim (1, is) . and. sp (3, is) . It . zlim (2, is) ) go to 550 
endif 
c 


34050000 
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if (iaper (is ) . eq . ' circ ' ) then 
rad=dsqrt ( (sp (1, is) -dxcirc (is) ) **2+ (sp (2, is) -dycirc (is) )’ 
if (rad. It . radlim(l, is) .or . rad. gt . radlim(2, is) ) go to 550 

- , — . , , ■ » . t i u ~ 


* 2 ) 


else if (iaper (is) .eq. 'rect' ) then 
xxp=sp (1, is) -dxrect (is) 
yyp=sp (2, is) -dyrect (is) 
call rotate (xxp, yyp, -threct (is) , xx, yy) 

if (dabs (xx) .gt.xwidth (is) /2.d0.or.dabs (yy) .gt.ywidth(is) /2.d0) 
* go to 550 

else if (iaper (is) .eq. ' zlim' ) then 

if (sp (3, is) . It . zlim(l, is) .or . sp (3, is) .gt . zlim (2, is) ) go to 550 

endif 

ivig=0 

return 

550 continue 


ivig=l 

return 

end 

subroutine wray (efact, irstat ) 


Q 

c trace ray and accumulate reflectivity weights and effective 
c area weight for ray 


c 

c 

c 

c 

c 

c 


efact is initial effective area weight for ray 


irstat is ne 0 for ray error 


implicit double precision (a-h,o-z) 

i************************************************* 




common /syscl/ zrange, elev, azim, foclen, source (3 ) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim(2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50) , wgt (15,50) , wgtnet (15) , effa (15) 


c* 

c 

c 

c 

c 


* ,pi 

* , imove (50) , irstr (50) , iwgt (50) ,nsurf 

* , nnrg, kmax, kprint (51 ) , ichief , i tilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , lhead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
********+**+++*****+++*+++*+******+**************+*++************* 


dimension tsp (3) , tra (3) , trmat (3,3), tdisp (3) 
initialize ray effective area weights 

(account for initial direction of ray in local coordinates 
of first surface, i.e. calculate effective area on first 
surface . ) 

if (imove (1) .ne. 0) then 
do 100 i-1,3 


tdisp (i)=disp (i, 1) 
do 100 j-1,3 

100 trmat (i, j ) =rmat (i, j , 1) 

call cnvin (spi, rai, tsp, tra, trmat, tdisp) 
factor=dabs (tra (3) ) 
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v/ummaria mode 


else 

factor=dabs (rai (3) ) 
endif 

mi do . 101 3 = l/nnrg 

c 101 w 9tnet (j)=factor*efact 

c*********************** 

C ini kt?i 2 iZe Print SUrface coun ter ******************************** 
c 

c do 930 3 ~ l,nsurf 

c cal1 ssr t ( j , irstat) 

c and update rJy^ffectiJe^rerS^ight^ reflectivi ty weights 

c lf U wg t ( j) .ne.O.and. irstat. eq.O) then 

call calwgt(i) 
endif 
c 

C print ray? 

c print ( Sj int(1) - ne -°) then 

endif rprint (j ' irs tat, ktr) 
c 

930 30 to 1000 

C 1000 continue: *********************************** ******** ********** 
return 
end 

subroutine wraysv(ifiii) 


c laSt SUrface «y information about ray npass 


:********i**t** d °^i® + precision (a-h,o-z) 

^common / syscl/ zrange, elev^r;"i*:r::*!!*t!r*************** 


common /syscl/ zrana^ *************************** 

* ' rad i^ ( 2 , 50 ), dxci?c ( 50 rd?cScflo}' Bn ' S ° UrCe (3) 

* ' 211x1(2,^50 j ' adata^25^56f XreCt ' dyrect (50) , threct (50) 

: ' d ^p (i: IS) ; Sick (50) f^index (50) 

2 / sdata (25,50) , delta ' 6X(50) 

: 

charactir 0 ^ 80 b ihlad; ifdfm (50) ' imode (50) ' ifd fn» (50) , ihead (20) 

t **f*f*^ff* + Jjt^e,imode ; iaper iobs 


c *********** + ^ + + + + + + it^e,imode ; iaper,iobs 

common /rsavel/ xpsv (200000) , ypa^TMSooSrr^dlaCTMoS^r******^ 


source code 
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v nnnOQO) enty(200000) ,wtsv(15, 200000) 

: :5saK.‘ssr::: i: i:i:^**.**..**‘-**— ******** 

nsv-nsv+1 

if (nsv. le . 200000 ) then 

if (nsv.eq. 20000") then 

ifill-1 

else 

ifill-0 

endif 

assume flat nondisplaced nonrotated image plane 
x value 

xpsv (nsv) -sp ( 1 i nsur ) 
v value 

ypsv (nsv) =sp (2 , nsur ) 

dxdz value nsurf ) /ra ( 3 , nsurf ) 

dxdzsv (nsv) =ra (1, nsur i ) / lo. \ 

™ s « £ace 1 

If amove (l).ne.O) then 
do 202 i=l ,3 
tdisp (i) =disp (i/ 1 ) 
do 202 j=l / 3 

202 trmat (i, j)-rmat a,3/^i) t tdisp) 

S|S3SS:sis!K8: 

sl8S:S5!8i:lS8i ; SS!iffi81 

endif 

do 100 i=l/ nnrg 

100 wtsv (i/ nsv) -wgtnet (i ) 

c 

e ]_ se 

200 fo mStl///^ overflow in wraysv, 

2 01 W fo^U- 201 ’*** «op ***'///> 
stop 
endif 


c 

c 

c 

c 

c 


return 

wsvrst (factor) 

reset effective area weights 

do 300 i=l/ nsv 
do 300 j=l/ nnrg 
300 wtsv ( j , i)=wtsv (3 , i) *factor 
return 


c 
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* 


initialize storage ray count, z shift, and effective 
focal length 
entry wsvi 
nsv=0 

zshif t=0 . dO 
return 
c 

end 

subroutine wrayso (fname) 

c output ray save data to ray file. 

c fname is the file prefix for the .gtray file, 
c 

I.....i^HeiL^i!.S^i*i“*-»-**h....**.**.**.-*.********** 

common /syscl/ zrange, elev, azim, foclen, source (3) 

', xwidth (50?!y^idtM50h dx^ect (50) , dyrect (50) , threct (50 ) 

* , zlim (2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3,50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

I * energy^ lS^delbet^ 2^1 5, 50)"^wgt (15,50) ,wgtnet (15) , effa (15) 

* I imove (50) , irstr (50) , iwgt (50) , ; nsurf 

* , nnrg, kmax, kprint (51) , ichief , ltilt (50) 

* ' iaper'(5ot?iobM50) , itype (50) , imode (50) , ifdfm(50) , ihead(20) 

character * 80 ihead, ifdfm t 

r* ^mm r \ n / r «w 1/ xd s v ( 2 0 0 0 0 0 ) , yp s v ( 2 0 0 0 0 0 ) , dxdz s v ( 2 0 0 0 0 0 ) 

+ , dydzsv (200000) , entx (200000) , enty (200000) , wtsv (15, 200000 ) 

c ****I*i**JiJi*2f **************************************************** 

character *80 fname 
c open the ray file 

c cal^fildf (iuray, fname, ’gtray unformatted ’) 

open (iuray, f ile=f name , f orm= 1 unformatted ) 
c write out the ray data 

nhead=20 , 

write (iurav) nsv, nnrg, zshift, foclen, nneaa > . , 

write (iuray) (xpsv(i) ,ypsv(i) ,dxdzsv(i) , dydzsv (1) , entx U)^ 

* ,enty(i), (wtsv(j,i),j=l, nnrg), i=l, nsv), (energy(i),i l,nnrg) 

* , (ihead (i) , i=l, nhead) 


c 

c 


c 

c 

c 

c 


return 

end 

subroutine wspotl (mspot, irand, rmin, rmax, azmin, azmax) 

tr rncoot successful rays randomly arranged on first surface 
annulSs It local 2-0. rays originate from source position, 
(limit rays between radii rmin, rmax and azimuths azmin, azmax) 


r 
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(input azimuths in radians between 0 and 2pi) 

Cal ^ir\ effeCtive • area wei 9 hts and effective area. 

6 • £®? tlve srea is calculated on first surface 
within radius limits on first surface) 

1 Kst P Surflce P !oi ea " eights are stored for «« 
irand must be initialized by calling ranset before this routine i 
ranf nt6ger Value for and reset b y random number generator 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

implicit double precision (a-h,o-z) 

c ******************************^^^^ + ^^^^^^^^^ 24700 

ZSllto ™ (3) 

* : zUm(2.'io) :^a^if? 50 ? XreCt (5 °' ’ dyreCt (50) - thre « < 5 °> 

* r tilt (3, 50) , rmat (3,3,50) 

* / disp (3, 50) , thick (50) , f index (50) 

, sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* ' energy CL5) , delbet (2,15, 50) ,wgt (15, 50) , wgtnet (15) , effa (15) 

* ' imove (50) , irstr (50) , iwgt (50) , nsurf 

, nnrg, kmax, kprint (51 ) , ichief , itilt (50) 

, npass, nvig, nerr 

*charactir°i' M b |head: ifdfm' 50 ’ ' imode (501 ■ ifdfi "< 5 °> - ihead ( 20 ) 
n*******ff+S+?f 8 itype, imode, iaper,iobs 

c ******************************************************* 

dimension work (3) , tsp (3) , tra (3) , trmat (3, 3) , tdisp (3) 

initialize ray counts for ssrt and wraysv 

call ssrti 
call wsvi 


c 

c 

c 


c 

c 

c 


initialize effective area accumulation 


25280C 


c 

c 

c 


c 

c 

c 


do 400 i=l,nnrg 
400 effa (i) =0 . dO 


set up for ray distribution 

aconst=rmax** 2 -rmin **2 

bconst=rmin**2 

delaz=azmax-azmin 

check azimuth input 


if (delaz.lt. O.dO. or. delaz.gt. (2.d0*pi) ) then 
write (6,4001) R 

4001 return {/// ' *** ski P w spotl, invalid azimuths 

endif 

c 

c initial effective area weight for ray 

efact=pi* (rmax**2-rmin**2) /dble (mspot) 


* * * 


'///) 


25530( 
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efact=efact*delaz/2 . dO/pi 

maximum number of attempted rays 
ktry=2000000 

do 321 i=l,ktry 

select ray 

select ray position on first surface 

rr=dsqrt (aconst*ranf (irand) +bconst) 
theta=azmin+delaz*ranf (irand) 

tsp(l)=rr*dcos (theta) 
tsp (2)=rr*dsin (theta) 
tsp(3)=0.d0 

transform to source coordinate system 
if (imove (1) .ne.O) then 
do 302 j=l, 3 
rai ( j ) =0 .d0 
tdisp ( j ) =disp ( j , 1) 
do 302 k=l , 3 

302 trmat (k, j ) =rmat (k, j , 1 ) 
call cnvout (tsp, rai, tsp, tra, trmat, tdisp) 
endif 

set up direction 
sum=0 . dO 
do 300 j=l,3 
work ( j ) =tsp ( j ) -source ( j ) 

300 sum=sum+work ( j ) *work ( j ) 
sum=dsqrt (sum) 
do 301 j=l, 3 
spi (j )=tsp ( j ) 

301 rai ( j ) =work ( j ) /sum 

always put ray in +z direction 
if (rai (3) . It . 0 . dO) then 
do 303 j=l,3 

303 rai ( j ) — rai ( j ) 
endif 

c 

c trace ray and accumulate effective area weights, 
c 

call wray (efact, irstat) 
if (irstat . ne . 0) go to 321 
c 

c accumulate effective area 
c 

do 500 j=l,nnrg 
500 effa ( j ) =ef fa ( j ) twgtnet ( j ) 
c 

c save ray information from last surface 
c 

call wraysv (ifill) 

c 26620000 


25810000 

25820000 

25830000 

25840000 

25850000 
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quit if there are enough through rays 

if (npass . eq.mspot) go to 627 
c 

321 continue 
c 

627 continue 
c 

c reset effective area if necessary 
c 

nfail=nvig+nerr 
if (nfail . ne . 0) then 

factor=dble (npass) /dble (nfail+npass) 
do 304 i=l,nnrg 
304 effa (i)=effa (i) *factor 

c also reset stored effective area weights if necessary 
call wsvrst (factor) 
endif 
c 

write (6,350) npass, rmin, rmax, azmin, azmax,elev, azim 
350 format (' 1 ', i7, ' successful rays in wspotl,'/ 

* ' random ray distribution on first surface annulus'/ 

* ' rmin= ',e24.16,', rmax= ' ,e24.16/ 

* ' azmin (radians)= ' ,e24.16, ' , azmax (radians)= ' ,e24.16/ 

* ' field angle (radians)= ',e24.16/ 

* ' azimuth (radians) = ',e24.16/) 
write (6,465) nvig,nerr 

465 format (/22x, i7, ' rays were vignetted or ' 

*' obscured' /22x, i7, ' rays failed in ssrt'/) 
if (nerr . ne. 0) then 
write (6, 351 ) 

351 format{///' *** warning, ray error(s) ***'///) 
endif 

if (npass . ne .mspot) then 
write (6, 352) mspot 

352 format (///' *** warning, less than ',i2 

* , 'successful rays'///) 
endif 

do 466 i=l,nnrg 

write(6,467) i, energy (i) , effa (i) 

467 formate energy (', i2, ’) = ',e24.16, effective area= ' 

* , e24 . 16) 

466 continue 

c 

return 

end 

subroutine wspot2 (nlong, naz, rmin, rmax, azmin, azmax) 
c 

c trace modified wheel spoke ray arrangement on first surface 
c annulus at local z=0. rays originate from source position, 

c (radii between rmin, rmax and azimuths between azmin, azmax) 
c ( azimuths in radians between 0 and 2pi) 
c calculate effective area weights and effective area, 
c (effective area is calculated on first surface 

c within radius limits on first surface) 

c intercepts, slopes, and effective area weights are stored for the 
c last surface for each ray. 

c 


267200 

267300\ 

267700 

267800 

267900C 


269800 

269900. 
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implicit double precision (a-h.o-z) 
c **«**u*H**************«********i***i**************„„„„ iiHM 

common /syscl/ zrange, elev, azim, foclen, source (3) 

, radlim(2, 50} , dxcirc (50) , dycirc (50) 

* : SS ,'ioi : rect <50 ’ ' dyrect 150 > ■ threct (50 1 

* , tilt (3,50) , rmat (3, 3,50) 

* , disp (3, 50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* / s P(3,50),ra(3,50), spi (3) , rai (3) 

* '®? ergy (!5) ,delbet (2,15, 50) ,wgt (15, 50) , wgtnet (15) , effa (15) 

f PI 

' (50) , irstr (50) , iwgt (50 ) , nsurf 
, nnrg, kmax, kprint (51) , ichief , itilt (50) 

, npass, nvig, nerr 

*character°b eifihlad,' if dfm (50) ' im ° de ,5 ° > ' if dfm(50) , ihead (20 ) 

character * 8 itype, imode, iaper, iobs 

dimension work (3) , tsp (3) , tra (3) , trmat (3, 3) , tdisp (3) 


c 

c 

c 


initialize ray counts for ssrt and wraysv 


call ssrti 
call wsvi 


c 

c 

c 


c 

c 

c 


initialize effective area accumulation 

do 400 i=l,nnrg 
400 effa(i)=0.d0 

set up for equal area ray distribution 

rmaxsq=rmax**2 

rminsq=rmin**2 

delrsq= (rmaxsq-rminsq) /dble (nlong) 
rconst=2 . d0*rminsq-delrsq 
delaz=azmax-azmin 

check azimuthal limits 


irit!‘(6^400i) ) ' d0 ' Or ‘ delaZ ' 9t ‘ (2 - d0 *P i)) then 

4001 format (///' *** skip wspot2, invalid azimuths 

return 

endif 


+ ★ + 


'///) 


c 

c 

c 


c 

c 


effective area weight for ray 

efact=pi*delrsq/dble (naz) 
efact=efact*delaz/2 . dO/pi 

delaz=delaz/ dble (naz ) 
azcnst=azmin+delaz/2 . dO 


do 321 i=l, nlong 


24700000 


25280000 


25530000 


25810000 
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rr=dsqrt ( (rconst+delrsq*dble ( 2 *i) ) / 2 .dO) 
do 321 m=l,naz 

theta=azcnst+delaz*dble (m- 1 ) 

tsp (l)=rr*dcos (theta) 
tsp ( 2 )=rr*dsin (theta) 
tsp ( 3 ) =0 . dO 

transform to source coordinate system 
if (imove ( 1 ) .ne. 0 ) then 
do 302 j-1,3 

rai(j)= 0 .d 0 

tdisp (j )=disp ( j , 1 ) 
do 302 k=l, 3 

302 trmat (k, j ) =rmat (k, j , 1 ) _ . , 

call cnvout (tsp, rai, tsp, tra , trmat, tdisp) 

endif 


set up direction 
sum=0 . dO 
do 300 j-1,3 
work(j)=tsp(j) -source ( 3 ) 

300 sum=sum+work ( j ) *work ( j ) 
sum=dsqrt (sum) 
do 301 j-1,3 
spi (j)=tsp(j) 

301 rai ( j ) =work ( j ) /sum 

c # 

c always put ray in +z direction 
if (rai (3) .It .0.d0) then 

do 303 j-1,3 
303 rai ( j ) =-rai ( j ) 
endif 


c trace ray and accumulate effective area weights, 
c 

call wray (efact , irstat ) 
if (irstat.ne.O) go to 321 
c 

c accumulate effective area 
c 

do 500 j=l, nnrg 
500 ef fa ( j ) =effa ( j ) +wgtnet ( j ) 

Q 

c save ray information from last surface 
c 

call wraysv (if ill) 
c 

321 continue 


write (6,350) npass, nlong, naz, rmin, rmax, azmin, azmax, elev, azim 

350 format ( ' 1' , i7, ' successful rays in wspot2, / surface'/ 

* ' : modified spoke wheel ray distribution on first surface , 

* 1 annulus , varying radial increments and constant / 

* 1 azimuthal angle increment’/ 


258300 


26770 

2678C 
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* ' radial points, ',i7,' azimuthal points'/ 

* » rmin= \e24.16, ', rmax= ',e24.16/ 

* > azmin (radians)= ',e24.16,' ; azmax (radians)= ,e24.16/ 

* ' field angle (radians)= ’,e24.16/ 

* ' azimuth (radians) = ' ,e24.16) 
write (6,465) nvig,nerr 

465 format (/22x, i7, ' rays were vignetted or 

* 1 obscured T / 2 2x , i7 , 1 rays failed in ssrt /) 
if (nerr.ne.O) then 

write(6,351) 

351 format (///' *** warning, ray error (s) * III) 

endif 

do 466 i=l,nnrg 

write(6, 467) i, energy (i) , effa (i) 

467 formate energy (', i2 ,’) = ',e24.16,\ effective area= 

* , e24 . 16) 

466 continue 


return 

subroutine wstat (iener, xav, yav, wav, wtot, xref , yr ef , f 
c **++***+****+**+ ^^^** ********* ************************************** 

c calculate average and rms of stored rays at energy iener 

£**********+*+**+*********+**********+****************************** 

c .**..^“5“.2;iSi!*S”Si5i«**5«i-“U**.****.*..***************** 

common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) ,dxcirc (50) ,dycirc(50) 

* , xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

* , zlim (2 , 50 ) , adata (25 , 50 ) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp (3,50) , thick (50) , f index (50) 

* , sdata (25, 50 ) , delta 

* , sp(3, 50) , ra (3, 50) , spi (3) , rai (3) __ 

* , energy (15 ) , delbet (2 , 15, 50 ) , wgt (15 , 50) , wgtnet (15) , ef f a (1 ) 

* \ imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 

* ', iaper^O) f iobs (50) , itype (50) , imode (50) , ifdfm (50) , ihead (20) 
character * 80 ihead, ifdfm 

*********** 

common /rsavel/ xpsv (200000 ), ypsv (200000) , dxdzsv (200000) 

* , dydzsv (200000 ) , entx (200000 ) , enty (200000) ,wtsv(15, 200000) 

c „*. I, .****. **************************************** 

is^^lf22222i*»****.******.* — * — ***** — * 

dimension work (200000) 

c ******5*tl*if****i******i****i************************************* 

do 100 i=l, nsv 

100 call ( stat\xpsv^ypsv^work, nsv, xav, yav, xrms, yrms, rms, wtot , wav, wrms 

* , xmin , xmax , ymin , ymax , wmin , wmax ) 
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* 

+ i 

★ i 

★ f 

★ f 


* f 

* i 

* f 

* i 

* i 


report the results 

* Wr yrms^rms"^ ^ ener ' ener gy (iener) ,nsv,elev, zshift, xav, yav, xrms 

201 format (/ ' length statistics for: energy (', i2 ,') = ',e24 16/ 

number of rays= ' , il , ' , field angle (radians)= ',e24.16/ 
net zshift= ',e24.16/ 

x average= ',e24.16, ', y average= ',e24.16/ 

xrms = ',e24.16, ', yrms = ',e24.16/ 

rms= 1 , e24 . 16) 

write^ (6, 205) xmin, xmax, ymin, ymax, wtot, wav, wrms, wmin, wmax 
xuo format ( 

* ' xmin= ',624.16,', xmax= ' ,e24.16/ 
ymin= ',e24.16, ', ymax= ',e24.16/ 

weight sum= ',e24.16/ 
weight average= ',e24.16/ 
weight rms= ',e24.16/ 
wmin= ',e24.16, ', wmax= ',e24.16//) 
calculate angular quantities with assumed focal lenqth fl 
if (fl.ne.O.dO) then 
f actor=3 600. d0*180. dO/pi 
axav=factor*datan (xav/fl) 
ayav=factor*datan (yav/fl) 
axrms=f actor *datan (xrms/f 1 ) 
ayrms=f actor *datan (yrms/f 1 ) 
arms=factor*datan (rms/fl) 
write (6,203) iener, energy (iener] 

* ,ayrms,arms 

203 format ( ' arc sec statistics for: energy (', i2, ') = ' e24.16/ 

assumed focal length= ',e24.16, ', number of rays ',i7/ 
x average (arc sec)= ',e24.16/ 
y average (arc sec)= ',e24.16/ 
xrms (arc sec) = ',e24.16/ 

* ' yrms (arc sec) = ',e24.16/ 

* ' rms (arc sec) = ’,e24.16/) 

endif 

calculate apparent focal length from displacement from xref,yref 
and from assumed field angle ell ,y 

if (ell.ne.O.dO) then 
factor=3600 . d0*180 . dO/pi 

f f=dsqrt ( (xav-xref ) **2+ (yav-yref ) **2) /dtan (ell) 

aell=f actor *ell 

write (6,204) xref , yref , aell 

204 formate xref= ',e24.16,', yref= ',e24.16/ 

* ' assumed field angle (arc sec)= ' ,e24.16) 

write (6, 202 ) ff ' 

202 format ( ’ apparent focal length is ' ,e24.16/ 

endif :< ^ e< ^ ucec ^ ^ rom (xav-xref , yav-yref ) and assumed field angle'/) 

return 

end 

subroutine dfm02 

implicit double precision (a-h,o-z) 


’ f 1 f nsv, axav, ayav, axrms 


★ 

★ 

+ 






c routine to compute contribution of surface errors 
c radius error and gradient of radius error 
c 
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c 

c 

c 

c 

c 

c 

c 


warning: this assumes a specific form for the 

function f to be minimized. Specifically 
it assumes that f is the difference between 
the ray position radius value and 
the surface radius value. 






* 

* 

* 

* 

★ 

* 

★ 

* 


common /syscl/ zrange, elev, azim, foclen, source (3) 

, radlim(2, 50) ,dxcirc(50) ,dycirc(50) 

, xwidth (50) , ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 
, zlim(2, 50) , adata (25,50) 

, tilt (3, 50) , rmat (3,3,50) 

,disp (3, 50) , thick (50) , f index (50) 


, sdata (25,50) , delta 
, sp(3,50) , ra (3, 50) ,spi(3) , rai (3) 
energy (15 ) , delbet (2,15, 50) ,wgt (15,50) ,wgtnet (15) , effa (15) 


* ,pi 

* , imove (50),irstr(50), iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief , itilt (50) 


* , npass, nvig, nerr . .. 

* , iaper ( 50 ), iobs ( 50 ), itype ( 50 ) , imode ( 50 ) , if df m ( 50 ) , lhead ( 20 ) 

character * 80 ihead,ifdfm 
character * 8 itype, imode, iaper, iobs 
********* ***********************+************************************** 


common for communication with user trace 

common /user dt/x, y, z, f , fx, fy, f z, isurf , if calc, isferr 
c *******************************************+**+*********** 
c 

c common for surface deformation data 


32901000 

32902000 


common/def orml/tdfml (2,2) ,zdfml(2,2) ,tdfmd(2) ,zdfmd(2) 

* , adfm (201201, 2) , ntdfm(2) , nzdfm(2) , idfmsf (50) , nhdfm (2) 

* , ihdfm (20, 2 ) , if ldfm (2 ) 
character * 80 ihdfm, ifldfm 
real adfm 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 

c 

c 

c 


interpolation coordinates are theta, z (t,z), i.e. polar coordinates, 
bilinear approximation is given by al + a2*t + a3*z +a4*t*z 
*a T values are in order of ntdfm increasing theta values for 
each of nzdfm z values also in increasing order. tdfmd and 
and zdfmd are the increments in the t and z directions . ihdfm 
holds nhdfm comment lines about the deformation data set. tdfml and 
zdfml are the theta and z limits of the grid, respectively, 
idfmsf gives the storage position for each surface. there are now 2 
storage positions available. The input file name is stored in ifldfm. 






add deformation contribution to function value f and 
gradient components fx,fy,fz 

compute the grid position in the deformation array 


ndfm=idfmsf (isurf) 


c use the grid position at the edge if 
c the value is very near the edge 
c 
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t=datan2 (y, x) 

ftplc= (t-tdfml (l,ndfm) ) /tdfmd (ndfra) 
itplc=idint ( f tplc+1 . dO ) 
if (itplc.lt . 1) then 

if ( (-ftplc) . It . 1 . d-14 ) then 
itplc=l 
else 

go to 3000 
endif 

elseif (itplc.ge.ntdfm(ndfm) ) then 

if ( ( (t-tdfml (2, ndfm) ) /tdfmd (ndfm) ) . It. 1. d-14) then 
itplc=ntdfm (ndfm) -1 
else 

go to 3000 
endif 
endif 


fzplc= (z-zdfml (1, ndfm) ) /zdfmd (ndfm) 
izplc=idint (f zplc+1 . d0) 
if (izplc.lt. 1) then 

if ( (-fzplc) . It. 1. d-14) then 
izplc=l 

else 

go to 3000 
endif 

elseif (izplc.ge.nzdfm(ndfm) ) then 

if ( ( (z-zdfml (2, ndfm) ) /zdfmd (ndfm) ) . It. 1. d-14) then 
izplc=nzdfm (ndfm) -1 

else 

go to 3000 
endif 
endif 


c 

c 


nll=itplc+ (izplc-1) *ntdfm(ndfm) 
n21=nll+l 

nl2=nll+ntdfm (ndfm) 
n22=nl2+l 

bl=dble (adfm (nil , ndfm) ) 

b2=dble (adfm (n21, ndfm) -adfm (nil, ndfm) ) /tdfmd (ndfm) 
b3=dble (adfm (nl2, ndfm) -adfm (nil , ndfm) ) /zdfmd (ndfm) 
b4=dble (adfm (n22, ndfm) -adfm (nl2, ndfm) -adfm (n21, ndfm) 
* +adfm (nil, ndfm) ) /tdfmd (ndfm) /zdfmd (ndfm) 
tdel=t- (tdfml (1, ndfm) +dble (itplc-1) *tdfmd (ndfm) ) 
zdel=z- (zdfml (1, ndfm) +dble (izplc-1) *zdfmd (ndfm) ) 






* * 


if ( if calc. eq. 1 .or. if calc. eq. 3) then 
c 


f=f- (bl+b2*tdel+b3*zdel+b4*tdel*zdel) 
c 

endif 


c 

c 




* * 


Jr * 


if (if calc . eq. 2 . or . if calc . eq. 3 ) then 
rsq=x*x+y*y 

if (rsq.le.O.dO) go to 3000 
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fac= (b2+b4*zdel) /rsq 
fx=fx-fac* (-y) 
fy=fy-fa c *x 
fz=fz- (b3+b4*tdel) 
endif 


c ++*+**+*+**+++ 

c 






return 










c 
c 

c error return 
c 

3000 continue 

write (6, 3001) . . , * + +i\ 

3001 format ('0*** error in dfm02, isferr set to 1 ) 

isferr=l 

return 

end 

subroutine prtdfm (debug, nsurf ) 
implicit double precision (a-h,o-z) 










c print out deformation storage data 










c common for surface deformation data 

common/deforml/tdfml (2,2), zdfml (2, ,2) , tdfmd (2) , zdfmd (2 ) 

* , adfm (201201, 2 ) , ntdfm (2) , nzdfm (2) , ldfmsf (50) , nhdfm (2 ) 

* , ihdfm(20, 2) , ifldfm(2) 
character * 80 ihdfm, ifldfm 
real adfm 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


interpolation coordinates are theta, z (t,z), i.e. polar coordinates . 

bilinear approximation is given by al + a2 t + a3 z . +a4 t z 

'a' values are in order of ntdfm increasing theta values for 

each of nzdfm z values also in increasing order, tdfmd ^d 

and zdfmd are the increments in the t and z directions. 

holds nhdfm comment lines about the deformation data set. tdfm]. 

7 dfml are the theta and z limits of the grid, respectively. 

idfmsf gives the storage position for each surface, there are now 2 

s?orage 9 po“tions available. The input file name is stored in ifldfm. 








logical debug 

do 400 i=l, nsurf 

if (idfmsf (i) .ne.0) then 

write (6, 607) i, if ldfm (idfmsf (l) ) , idfmsf (l) 
607 format (//' surface ’,i3,' uses file:'/ 


* lx,a/ 

* ' in storage area ' ,il) 
endif 

400 continue 
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do 100 ndfm=l,2 

if (ifldfm(ndfm) .eq. ' ') go to 100 
write (6, 601) if ldfm (ndfm) , ndfm 

601 ^format (//' deformation surface data from file:'/ 

-Lx f a/ 

* ' in storage area ’,il) 
do 602 i=l, nhdfm (ndfm) 

if (ihdfm(i, ndfm) .eq. ’ ’) go to 602 
write (6, 603) ihdfm (i, ndfm) 

603 format (lx, a) 

602 continue 

n ^ d (ndfm) , n z dfm (ndfm) , (tdfml (i, ndfm) , i=l , 2 
/ tdfmd (ndfm) , (zdfml (i, ndfm) , i=l, 2) , zdfmd (ndfm) 

604 ^format (llO, azimuthal bins, ',il0, • axial bins’/ 

azimuthal limits (radians) ',2e24.16/ 

' azimuthal increment (radians) ' ,e24.16/ 
axial limits ' ,2e24.16/ 

* ’ axial increment ’,e24.16//) 
if (debug) then 

c 

c dump out the derived deformation values 
c 

do 200 i=l, nzdfm(ndfm) 

nc *f m ) +dble (i-1) *zdfmd (ndfm) 
do 200 3 = 1 , ntdfm (ndfm) 

tpos=tdfml (1, ndfm) +dble ( j-1) *tdfmd (ndfm) 
write (6, 605) i,j 

605 format ('t element ’,i5,’, z element ’,i5) 
nplace=3+ (i-1) *ntdfm (ndfm) 

c 

c 

C(1 , write (6, 606) tpos, zpos, adfm (nplace, ndfm) 

606 format ( t= ’ , e23 . 15, ' , z= ’ , e23 . 15, ’ , dr=',el5.7) 


200 continue 
endif 

100 continue 
c 

c ****«**********Hu****************** M **** M * MMiOM4 ^ itMwM 

c 

return 

end 

subroutine rdfm(iunit) 
implicit double precision (a-h,o-z) 
c 

c ************************************** HiMii „ itMtMtMtMMiM ^ 

c 

c routine to read in deformation values to common area 
c deformation file name is in ifdfm 
c 

common /syscl/ zrange, elev, azim, foclen, source (3) 

, radlim(2, 50) , dxcirc (50) , dycirc (50) 

I ' J? ( |?°} ' ywidth (50) , dxrect (50) , dyrect (50) , threct (50) 

, zlim(2, 50) ,adata (25, 50) 

* , tilt (3,50), rmat (3,3,50) 

* , disp (3,50), thick (50) , f index (50) 
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* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) , delbet (2,15,50) , wgt (15,50) ,wgtnet (15) ,effa (15) 

* , pi 

* , imove (50),irstr(50), iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51),ichief,itilt(50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 

+ + + + + + + + + + + + + + + * + + + + + * + + + + + + * + + + * + * + + + + * + * + * + + + + + + + r*** 

C 

c common for surface deformation data 
c 

common /deforml/tdf ml (2,2) , zdfml (2 , 2 ) , tdfmd (2 ) , zdfmd (2) 

* , adfm (201201, 2) ,ntdfm(2) , nzdfm(2) , idfmsf (50) , nhdfm (2 ) 

* , ihdfm(20, 2) , ifldfm(2) 
character * 80 ihdfm, ifldfm 
real adfm 

c . 

c interpolation coordinates are theta, z (t,z), i.e. polar coordinates, 
c bilinear approximation is given by al + a2*t + a3*z +a4*t*z 
c ? a ' values are in order of ntdfm increasing theta values for 
c each of nzdfm z values also in increasing order, tdfmd and 
c and zdfmd are the increments in the t and z directions. ihdfm 
c holds nhdfm comment lines about the deformation data set. tdfml and 
c zdfml are the theta and z limits of the grid, respectively, 
c idfmsf gives the storage position for each surface, there are now 2 
c storage positions available. The input file name is stored in ifldfm. 
c 

£******+*+++*++**+***++*****+**+**++****+++******+*+★+*+*+****+********•* 
logical debug 
c 

c set number of deformation surfaces to zero 
c 

ndfm=0 

c 

c initialize some other values 
c 

ifldfm (1 ) = ' ' 
if ldfm (2 ) =' ' 
do 101 i=l, nsurf 
101 idfmsf (i)=0 
c 

c 

c loop through surfaces 
c 

do 100 isurf=l, nsurf 
if (ifdfm (isurf) .eq. ' ') go to 100 
iread=l 
c 

if (ndfm. ne . 0 ) then 

do 103 i=l,ndfm 

if (ifldfm(i) . eq. ifdfm (isurf ) ) then 
idfmsf (isurf )=i 
iread=0 
endif 
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if (iread.eq. 0) go to 102 
103 continue 

102 continue 

endif 
c 

if (iread. eq. 1 ) then 
ndfm=ndfm+l 

if (ndfm.gt.2) go to 4000 

open (iunit, file=ifdfm (isurf ) , form= ' unformatted * , err=3000) 
read (iunit, end=3 000, err=3 000) ntdfm(ndfm) , nzdfm (ndfm) 

* , nhdfm (ndfm) 

if (ntdfm (ndfm) . It . 2 . or . nzdfm (ndfm) . It . 2 ) go to 3000 
nn=ntdfm (ndfm) *nzdfm (ndfm) 
if (nn . gt . 201201 ) go to 3000 

if (nhdfm(ndfm) . It . 1 . or . nhdfm (ndfm) .gt.20) go to 3000 
read (iunit, end=3000, err=3000) (adfm( j , ndfm) , j=l, nn) 

* , (tdfml (i, ndfm) , i=l, 2) , (zdfml (i,ndfm) , i=l, 2) 

* , (ihdfm(i, ndfm) , i=l, nhdfm (ndfm) ) 

tdfmd (ndfm)= (tdfml (2, ndfm) -tdfml (l,ndfm) ) /dble (ntdfm (ndfm) -1) 
zdfmd (ndfm)= (zdfml (2, ndfm) -zdfml (l,ndfm) ) /dble (nzdfm (ndfm) -1) 
idfmsf (isurf ) =ndfm 
ifldfm(ndfm) =ifdfm( isurf) 
close (iunit, err=3000) 
endif 
c 

100 continue 
c 

£***************** ****** **** + + + *** + ************************ ************* 
c 

c echo the input 

debug=. false, 
call prtdfm (debug, nsurf) 
c 

c******************************************************************^^^ 

c 

return 

c 

Q***************************************************************^^^^^ 

c 

c namelist input error 
c 

4000 continue 
write (6, 4001) 

4001 format ( 1 Onamelist input error detected in rdfm, stop T ) 
stop 

c 

q************************************************************^^^^*^.^^^^^ 

c 

c input file read error 
c 

3000 continue 

write (6, 3001) ifdfm(isurf) 

3001 format (' Oinput file read error or bad data in rdfm, stop '/ 

* ' input file name:'/ 

* lx, a) 
stop 

**************************************************. J l r , t , A .**. lfc .. A . + lfc , <J l r * 1 l rit , |lr<A ,. A ,, >k ., A „, A ,. A ,, A . 
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c 

end 

subroutine strc02 (isterr, is) 
implicit double precision (a-h ; o-z) 

£+**+**** + *+* + + * + *•*+** + +* + *■*■*■+ + *•***.*• + + + *+ ■* + **+*+**** + *+ **+++■+■*■■** + ■*•+** 
common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50) , ywidth (50 ) , dxrect (50 ) , dyrect (50) , threct (50 ) 

* , zlim (2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* ,disp (3,50) , thick (50) , f index (50) 

* , sdata (25, 50) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15 ) , delbet (2,15,50), wgt (15,50), wgtnet (15),effa(15) 

* ,pi 

* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* ,nnrg, kmax, kprint (51) , ichief, itilt (50) 

* , npass, nvig, nerr 

* , iaper (50 ) , iobs (50 ) , itype (50 ) , imode (50) , ifdfm (50 ) , ihead (20 ) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


common for communication with user trace 

common/userdt/x, y, z, f , fx, fy, f z, isurf , ifcalc, isferr 


32901000 

32902000 




this version is for deformed surfaces analagous to 
surface types grzconOl, grzcon02, and grzcon03. 

the deformed surface types are grzconll, grzconl2, and grzconl3 
respectively 

grzconll is direct calculation with no deformation. 
grzconl2 is iteration including deformation file data. 
grzconl3 is direct calculation followed by iteration 
including deformation file data. 

The deformation file has a reqular grid of rectangles. On each 
rectangle there are constants for bilinear interpolation. 

The surface errors are in terms of a radius error as 
a function of axial position z and azimuthal position 
theta. However the gradient is computed in the usual 
x, y, z coordinates of the surface. The deformation 
file is read in when it is first used into a 
common area. Presently there is room for two deformed 
surfaces. If the process takes the ray inside the 
aft end or outside the front end the intercept is set 
outside of the z limits so that the ray will be 
vignetted. This assumes a concave surface. 

trace to surface 'is' (this version is for reflection or 

dummy surfaces only) 

input is: starting ray position sp(,is) 

starting direction cosines ra(,is) 

output is: new ray position sp(,is) 


33020000 

33030000 

33350000 


33390000 
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c new direction cosines ra(,is) 

c isterr ne 0 for ray error 

c 33420C 

isterr=0 33430C 

c 33432C 

£*+*****+*+*+* *************** + * *■★****★★******★ + **★★*★*★******★★★**** 33433C 

c 33434C 

c find intercept 33470C 

c 33480C 

c set surface number for user trace 33490( 

isurf=is 33492( 

c initialize ray position and direction 

x=sp(l,is) 33540, 

y=sp(2,is) 33540. 

z=sp(3,is) 33540' 

dxds=ra (1, is) 33540' 

dyds=ra (2 , is ) 33540! 

dzds=ra (3, is ) 33540 

Q****************************************************************** 


C 

c direct calculation here 

if (itype (is) . eq . * grzconll ’ . or . itype (is) . eq. ' grzconl3 ' ) then 
call utri02 

if (isferr.eq. 1) go to 3000 
endif 
c 

c 

c iteration here 
c 

if (itype (is) .eq. ’grzconl2’ . or . itype (is) .eq. ’grzconl3' ) then 
c 

C 

c check for ray missing surface 

c if ray misses surface set z so that ray will be 
c vignetted 

c this assumes concave surface 
c 

xt=x 

yt-y 

zt=z 

z=zlim(2, is) 
x=xt+dxds/dzds* (z-zt) 
y=yt+dyds/dzds* (z-zt) 
c set ifcalc for function value only 
if calc=l 
call utrc02 
fl=f 

z=zlim(l, is) 
x=xt+dxds/dzds* (z-zt) 
y=yt+dyds/dzds* (z-zt) 
call utrc02 
f 2=f 

fsign=f l*f 2 

if (f sign . gt . 0 . dO ) then 
c ray misses surface region, 
c This test assumes concave surface 
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c set x,y, z to be vignetted and cut out of subroutine 
z=2.d0*zlim(2, is) -zlim(l, is) 
sp (1, is)=xt+dxds/dzds* (z-zt) 
sp (2, is)=yt+dyds/dzds* (z-zt) 
sp (3, is) =z 
return 
else 
c 

c make sure that starting point is within the 
c element 
c 

if (zt . It . zlim (1, is) ) then 
z=zlim(l, is) 
x=xt+dxds/dzds* (z-zt) 
y=yt+dyds/dzds* (z-zt) 
elseif (zt.gt. zlim(2, is) ) then 
z=zlim (2, is ) 
x=xt+dxds/dzds* (z-zt) 
y=yt+dyds/dzds* (z-zt) 
else 

x=xt 

y=yt 

z=zt 

endif 

endif 

c 

^H********************-*-*-***-*************-*********-**********-****-**-**** 

c 

c initialize iteration count 
kount=0 
c debug print 

c write (6,*)is,x,y,z, dxds, dyds, dzds, delta, kmax 
c 

c require function value and gradient calculation 
ifcalc=3 

c iteration loop for intercept 
100 continue 

kount=kount+l 

if (kount .gt . kmax) go to 3000 
call utrc02 

if (isferr . eq . 1 ) go to 3000 
ds=-f/ (fx*dxds+fy*dyds+f z*dzds) 
c dont go out of the surface region 
zt=z+dzds*ds 
icut=0 

if (zt . It . zlim ( 1 , is ) ) then 
ds= (zlim(l,is)-z)/dzds/2.d0 
icut=l 

elseif (zt.gt . zlim(2, is) ) then 
ds= (zlim (2, is) -z) /dzds/2 .d0 
icut=l 
endif 

x=x+dxds*ds 
y=y+dyds*ds 
z=z+dzds*ds 
c debug print 

c write (6, *) kount, ds, x, y, z, f , fx, fy, fz, icut 
c 


33500000 

33510000 

33541000 

33541200 

33541300 

33541400 

33542000 

33550000 

33560000 

33570000 

33600000 

33620000 

33690000 


33691000 

33692000 

33693000 

33695000 

33696000 
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if (icut.eq.l) go to 100 
c 

if (dabs (ds ). gt . delta) go to 100 
c 

endif 


c calculation for outgoing ray 3374000 

c (currently covers reflection and thru surfaces only) 337401' 

c 337402'. 

if (imode (is) .eq. 'refl' ) then 3374100 

c do gradient calculation only 337411'’’ 

ifcalc=2 337412' 

call utrc02 337420b 

if (isferr .eq. 1) go to 3000 3374310 


c= (dxds*fx+dyds*f y+dzds*f z ) / (fx**2+fy**2+f z**2 ) 
ra (1, is)=dxds-2 . d0*c*fx 
ra (2, is)=dyds-2 . d0*c*fy 
ra (3, is ) =dzds-2 . d0*c*f z 
c debug print 

c write (6, *) x, y, z, fx, fy, fz 


c 



elseif (imode (is) 

. eq . ’ thru ' ) then 



else 


337437' 

c 

invalid surface 




go to 3000 


337438C 


endif 


337440r 

c 



338920' 


sp (1, is) =x 




sp (2, is) =y 




sp (3, is ) =z 



c 



339320' 


return 


339400C 

3000 continue 


339500C 

c 

error return 


339600' 


write (6, 3001) 


3396101 

3001 f ormat ( ' 0 *** 

strc02 error, isterr set to 1 *** ' ) 



isterr=l 


339700C 


return 


339800- 


end 


3399001 


subroutine utrc02 

339910C 

c 



3399111’ 

c 

calculate function 

f and gradient fx,fy, fz for surface 

339912' 

c 



339914( 

c 

input 


339915C 

c 

x,y,z 

position 

339916' 

c 

isurf or n 

surface number 

339917' 

c 

itype (n) 

surface type 

339919( 

c 

sdata ( . . . , n) 

surface parameters 

339920( 

c 

ifcalc 

calculate function value if ifcalc=l 

33992K 

c 


calculate gradient if ifcalc=2 


c 


calculate both if ifcalc=3 


c 

output 


339922' 

c 

f 

function value 

339923' 

c 

fx, fy, f z 

gradient of function 

339924' 

c 

isferr 

non zero if error occurs 

339925' 

c 



339928' 


implicit double 

precision (a-h,o-z) 

339930' 

C' 

Jr******************************************************************* 
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common /syscl/ zrange, elev, azim, foclen, source (3) 

* , radlim(2, 50) , dxcirc (50) , dycirc (50) 

* , xwidth (50) ,ywidth (50) ,dxrect (50) , dyrect (50) , threct (50) 

* , zlim (2, 50) , adata (25, 50) 

* , tilt (3, 50) , rmat (3, 3, 50) 

* , disp(3,50),thick(50), f index (50) 

* , sdata (25, 50 ) , delta 

* , sp (3, 50) , ra (3, 50) , spi (3) , rai (3) 

* , energy (15) ,delbet (2, 15, 50) , wgt (15, 50) , wgtnet (15) , ef f a ( 15 ) 

* , pi 


* , imove (50) , irstr (50) , iwgt (50) , nsurf 

* , nnrg, kmax, kprint (51) , ichief,itilt (50) 

* , npass, nvig, nerr 

* , iaper (50) , iobs (50) , itype (50) , imode (50) , ifdfm(50) , ihead (20) 
character * 80 ihead, ifdfm 

character * 8 itype, imode, iaper, iobs 
********+***★***++****++***★*********+****************************** 


common for communication with user trace 

common /userdt/ x, y, z, f , f x, fy, f z, isurf, if calc, isferr 


32901000 

32902000 


c 

c common for surface deformation data 
c 

common/ deforml/tdfml (2,2), zdfml (2,2), tdfmd<2) , zdfmd (2) 

* ,adfm (201201, 2) , ntdfm(2) ,nzdfm(2) , idfmsf (50) , nhdfm (2 ) 

* , ihdfm (20, 2 ) , if ldfm (2 ) 
character * 80 ihdfm, ifldfm 
real adfm 


c 

c interpolation coordinates are theta, z (t,z), i.e. polar coordinates, 
c bilinear approximation is given by al + a2*t + a3*z +a4*t*z 
c 'a' values are in order of ntdfm increasing theta values for 
c each of nzdfm z values also in increasing order. tdfmd and 
c and zdfmd are the increments in the t and z directions. ihdfm 
c holds nhdfm comment lines about the deformation data set. tdfml and 
c zdfml are the theta and z limits of the grid, respectively, 
c idfmsf gives the storage position for each surface. there are now 2 
c storage positions available. The input file name is stored in ifldfm. 
c 


isferr=0 


equivalence (n, isurf) 34011200 

34011500 
34012000 

c 34012100 

if (itype (n) . eq. ' grzconll ' .or . itype (n) .eq. 'grzconl2 ' 

* . or. itype (n) .eq. 'grzconl3' ) then 

c grazing conic plus sag error: 
c 

c rho at z=0 sdata (l,n) 

c 

c subnormal at z=0 


c l-e**2 
c 

c full mirror length 
c 

c zero-peak sag error 


sdata (2, n) 
sdata (3, n) 
sdata (4 , n) 
sdata (5, n) 
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c (mirror ends fixed) 
c 

c average r error sdata (6, n) 

c 

c delta r error sdata(7,n) 

c 

rhosq=sdata (1, n) ** 2+2 . dO* sdata (2, n) *z-sdata (3, n) *z**2 
if (rhosq . le . 0 . dO ) go to 3000 
rho=dsqrt (rhosq) 
rad=dsqrt (x**2+y**2) 
if (rad. le . 0 . dO) go to 3000 
c 

if ( if calc. eq. 2. or. if calc. eq. 3) then 

fx=x/rad 

fy=y/rad 

fz= z* (sdata (3, n) /rho+8 .d0*sdata (5,n) /sdata (4, n) ** 2 ) 

* -sdata (2, n) /rho+sdata (7, n) / sdata (4, n) 
endif 

c 

if (ifcalc.eq.l.or.ifcalc.eq.3) then 
f=rad- (rho 

* -4 . d0*sdata (5, n) * ( (z/sdata (4,n) ) **2-1 .dO/4 . dO ) +sdata ( 6, n) 

* -sdata (7, n) *z/sdata (4, n) ) 
endif 

c 

c include deformations if present 

c 

if (idfmsf (n) . ne . 0 ) then 
call dfm02 

if (isferr . ne . 0 ) go to 3000 
endif 
c 

c ******************* Jr********************************** ** + ** + **★★*★*** 

c 

elseif (itype (n) . eq. ' flat ' ) then 

*+-************* + ** + ** + ** + * + *** + + + ************************************ 
flat surface 

if (if calc. eq. 2 . or . if calc . eq. 3) then 
fx=0 . dO 
fy=0 . dO 
f z=l . dO 
endif 
c 

if (ifcalc.eq.l.or.ifcalc.eq.3) then 
f=z 
endif 
c 

c********************************************************************* 

c 

else 

c invalid surface 
go to 3000 
endif 
return 

3000 continue 

c computation error 
write (6, 3001 ) 

3001 format ('0 *** utrc02 error, isferr set to 1 ***') 


340126' 

340127 

340128. 

340129' 

340130' 


340134' 

340135 

340137 

340138' 


340140' 

340141' 

340142 - . 


340143 


340145 

340160' 

340170 

340180 


340190 

340197 

340198 

340199 

340200 

340300 

340310 

340311 
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isferr=l 

return 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


entry utri02 
isferr=0 

if (itype (n) . eq. 1 grzconll 


. or . itype (n) .eq. 'grzconlS 1 ) 


then 


direet calculation of intercept of ray with concave grazing conic 
take error return for two solutions within element gra2ing COniC * 

(in oase of a convex optic this could be changed to take the first 
solution within the element) Ilrst 

take first solution if there is no solution within the element 
cut out to error return for no solution 

(in case of no solution, if desired, one could artificially set the 
outside of the element to be vignetted) ^ tne 


look for solutions 


c 


c no 


K : o a ii : I ? ) * 1 )? + r fi 2 ' n) ** 2+sdata(3 ' n )* ra ( 3 ^)**2 

!L 2 '^? n ,£ a 4' n) +sp (2 ' n) * ra (2, n) -sdata (2,n)*ra(3,n)) 

c=sp(l,n)** 2 +sp( 2 ,n)** 2 -sdata(l,n )**2 

isol=0 


if (a . eq . 0 . dO ) then 
if (b.eq.O.dO) then 
solution 


go to 3000 
endif 
sol=-c/b 
isol=l 

elseif (c.eq. O.dO) then 
if (b.eq.O.dO) then 
sol=0 . dO 
isol=l 
else 
sl=0 . dO 
s2=-b/a 
endif 

else 


if (b . eq. 0 . dO ) then 
arg=-c/a 

if (arg.lt. O.dO) then 

c no solution 

go to 3000 
endif 

sl=dsqrt (arg) 
s2=-sl 
else 


arg=b**2-4 . d0*a*c 
if (arg. It. O.dO) then 

c no solution 

go to 3000 
endif 

arg=dsqrt (arg) 
denoml=b+arg 
denom2=b-arg 
if (denoml.ne.O.dO) then 


34032000 

34033000 


solution 
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if (denom2 . ne . 0 . dO) then 
sl=-2 . d0*c/denoml 
s2=-2 . d0*c/denom2 
else 

sol=-2 . dO*c/denoml 
isol=l 
endif 

elseif (denom2 . ne . 0 . dO ) then 
sol=-2 . d0*c/denom2 
isol=l 
else 

c no solution 

go to 3000 
endif 
endif 
endif 
c 

c make selection of solution if it is not unique, 
c 

if (isol.eq. 0) then 

test=sdata (4 , n) /2 . dO 
zl=dabs (sl*ra (3, n) ) 
z2=dabs (s2*ra (3, n) ) 
if (zl.lt. test) then 
if (z2.lt. test) then 

c two solutions within element 

c (there could actually be two solutions within 

c the element or this could also be caused 

c by a numerical problem above) 

go to 3000 
else 
sol=sl 
endif 

elseif (z2.lt. test) then 

sol=s2 

else 

sol=sl 

if (s2 . It . si ) sol=s2 
endif 

endif 

c 

c move to the solution point 

C x=sp (1, n) +ra (1, n) *sol 

y=sp (2, n) +ra (2, n) *sol 
z=ra (3, n) *sol 


c 


else 

c invalid surface 
go to 3000 
endif 

£****★★ *************** 






return 

subroutine conic (rhoz, subn, skapa, z, rho, slope) 
implicit double precision (a-h,o-z) 
rho=dsqrt ( rhoz**2+2 . d0*subn*z skapa z 2) 
slope= (subn-skapa*z) /rho 


34050 


Final Report A 



Appendix 5 


return 

end 

subroutine fildf (iu, name, type, mode) 
c 

c routine to open unit iu to file ' name type ’ 

c 

character * 80 name, type, mode 
call nb (name, nl, n2, 80) 
if(nl.le.O) go to 3000 
call nb (type, ml, m2, 80) 
if(ml.le.O) go to 3000 

open (iu, f ile=name (nl :n2) // ' . ' / /type (ml :m2 ) , access 
* form=mode, err=3000 ) 
return 

3000 continue 
c error return 

write (6,*) ’ unable to open file, stop' 

stop 

end 

subroutine matab (a,b,c,nl,n2,n3,d) 
c 

c c = a x b, matrix multiplication 
c 

c actual a,b,c can be the same array 
c 

implicit double precision (a-h,o-z) 
dimension a(nl,n2) ,b(n2,n3) ,c(nl,n3) ,d(nl,n3) 
do 100 i=l,nl 
do 100 j=l,n3 
d (i, j ) =0 .d0 
do 100 k=l,n2 

100 d(i,j)=d(i,j)+a(i,k)*b(k,j) 

do 200 i=l,nl 
do 200 j=l,n3 
200 c(i, j)=d(i, j) 
return 
end 

subroutine nb (array, numl, num2, nsize) 
c 

c find first string of non blank characters 
c 

character * {*) array 

numl=0 

num2=nsize 

if (nsize . le . 0 ) go to 1000 
do 100 i=l, nsize 
if (array ( i : i) . ne . ' ') then 

if (numl . eq. 0) numl=i 
else 

if (numl . ne . 0) then 

num2=i- 1 

go to 200 

endif 

endif 

100 continue 
200 continue 
1000 return 
end 
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' sequential ' , 


00221030 

00221130 

00222030 

00223030 

00224030 

00225030 


00228030 

00229030 

00229130 

00229230 
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subroutine pfocus (x, y, ck, cl, w, n, xloc, yloc, zloc) 



implicit double precision 

(a-h, o-z) 

14550b 


dimension x (n) , y (n) , ck (n) , 

cl (n) , w (n) 

145600 

c 



14570C 

c 

find weighted planar best focus using rays from 


c 

geometric ray trace 


c 



145900 

c 

minimize weighted 

sum of squared differences from 


c 

average position 

in x-y plane. 


c 



146400 

c 

input 


146500 

c 



14660C 

c 


x,y : positions of rays at initial 

14670C 

c 


z value 

146800 

c 



14690C 

c 


ck,cl : dx/dz,dy/dz for each ray 

14700C 

c 



147100 

c 

c 


n : number of rays 

147200 

c 


w : ray weights 


c 



147300 

c 

output 


147400 

c 



14750C 

c 


xloc, yloc : postion of best focus in 

14760C 

c 


x-y plane 

147700 

c 



14780C 

c 


zloc : delta z to best focus from 

14790C 

c 


initial z value 

148000 

c 



148100 

c 


x,y : positions of rays at new z value 

14820C 

c 



14830C 


xloc=0.d+00 


148400 


yloc=0.d+00 


148500 


zloc=0.d+00 


14860C 


c 


c cut out if there are no rays 
c 


if(n.lt.l) go to 1000 

14870C 

xav=0 . d+00 

14880G 

yav=0 . d+00 

148900 

ckav=0 . d+00 

14900C 

clav=0.d+00 

14910C 

sumw=0.d0 


do 10 i=l,n 

14920C 

xav=xav+x ( i ) *w ( i ) 


yav=yav+y ( i ) *w (i ) 

14940C 

ckav=ckav+ck (i) *w (i) 

14950C 

clav=clav+cl (i ) *w (i ) 

14960C 

s umw= s umw+w ( i ) 


continue 



c cut out if weight sum is zero 
c 

if (sumw.le.O.dO) go to 1000 


xav=xav/sumw 14980C 
yav=yav/sumw 14990C 
ckav=ckav/sumw 15000C 
clav=clav/sumw 15010C 


Final Report A5 


o o 


Appendix 5 Command mode source code 


suml=0 . d+00 

15020000 

sum2=0 . d+00 

15030000 

do 20 i=l,n 

15040000 

conl=ck (i) -ckav 

15050000 

con2=cl (i) -clav 

suml=suml+ ( (x (i) -xav) *conl+ (y (i) -yav) *con2) *w (i) 
20 sum2=sum2+ (conl*conl+con2*con2 ) *w (i) 

15060000 


c 

c cut out if there is no solution 
c 


if (sum2 .eq. 0 . dO) go to 1000 



zloc=-l . d+00*suml/sum2 

15090000 


do 30 i=l,n 

15100000 


x (i) =x (i) +ck (i) *zloc 

15110000 


y (i)=y (i)+cl (i) *zloc 

15120000 


xloc=xloc+x (i) *w (i) 

15130000 

30 

yloc=yloc+y ( i ) *w ( i ) 

15140000 


xloc=xloc/sumw 

15150000 


yloc=yloc/sumw 

15160000 

1000 

return 

15170000 


end 

15180000 


subroutine red (x, y, xcen, ycen, w, n, enc, rmax, ne, f rac, rad, nf 
* ,wrmax,wtot) 
c 

c calculate radial energy distribution 
c 

c input 


c 


C 

x,y 

ray intercepts 

c 

xcen, ycen 

assumed center of radial energy distribution 

c 

w 

ray weights 

c 

n 

number of rays (>=1) 

c 

rmax 

maximum radius to calculate encircled energy 

c 

ne 

number of radii for encircled energy 

c 


calculation (>=1) 

c 

frac 

fraction values for radii calculation 

c 


(must be in increasing order) 

c 

nf 

number of fraction values (>=1) 

c 

c 

output 


c 

c 

enc 

ne encircled energy values up to rmax radius 

c 

rad 

radius values for input fraction values 

c 

wrmax 

weight sum up to rmax 

c 

wtot 

total weight sum 


c 

implicit double precision (a-h,o-z) 27010000 

dimension x(n),y(n),w(n), enc (ne) , frac (nf ) , rad (nf ) 
c constant 

pi=datan (1 . dO ) *4 .d0 27140000 

27250000 

interval size 27260000 

dltr=rmax/dble (ne) 27270000 

c 27280000 

c zero the accumulation array 27290000 

c 27300000 

do 100 i=l,ne 27310000 

enc (i) =0 . dO 
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100 continue 273300 

c zero the weight sums 
wtot=0.d0 
wrmax=0 . dO 

c 274900 

do 200 i=l,n 
wtot=wtot+w (i) 

gr=dsqrt ( (x (i) -xcen) **2+ (y (i) -ycen) **2) 

nzr=idint (gr/dltr) +1 275100, 

if (nzr . gt . ne ) go to 200 

wrmax=wrmax+w ( i ) 

enc (nzr) =enc (nzr) +w (i) 

200 continue 275500. 

c 275600C 


enc (1 ) =enc (1 ) /wtot 
c 

if(ne.ge.2) then 
do 300 i=2,ne 

enc (i) =enc { i— 1 ) +enc (i) /wtot 


300 continue 276800 

endif 

c 279900'' 

c determine radii for fraction values 280000 

c fraction values must be in increasing order 280100\. 

c 

do 400 i=l,nf 
400 rad (i) =0 . dO 
c 

m = 1 280200C 


do 50 np = 1, nf 
c 

if (frac (np) . le.enc (1) ) then 
rad (np) =0 . dO 

elseif (frac (np) . le . enc (ne) ) then 


30 m = m + 1 281100 

if(m.gt.ne) go to 51 

if (enc (m) . It . f rac (np) ) go to 30 281200'’ 

rad(np) = dble (m-1) *dltr+dltr* (frac (np) -enc (m-1 )) / 

* (enc (m) -enc (m-1 ) ) 

m = m - 1 281500C 

else 

rad (np) =-dltr 
endif 

c 282300( 

50 continue 282400 

c 

51 continue 

c 282500'’ 

return 283600' 

end 283700^ 

subroutine rotate (xp, yp, ang, x, y) 

c 529800' 

implicit double precision (a-h,o-z) 529900' 

c 5300001 

c = dcos(ang) 530100( 

s = dsin(ang) 530200 1 

x = xp*c-yp*s 530300' 

y=xp*s+yp*c 5304001 
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return 53050000 

end 53060000 

subroutine splot (npts,f,x) 

c 56950000 

implicit double precision (a-h,o-z) 56960000 

character * 4 char, blank, dash, vline, star 

c 56980000 

c on-line printer plot for spot diagram 56990000 

c 57000000 

character * 4 char (120), iq 

dimension x(npts), f(npts) 57020000 

c 57030000 

data blank, dash, vline, star / ' ' I / 57040000 

c 57050000 

fmin=f(l) 57060000 

fmax=f(l) 57070000 

xmin=x(l) 57080000 

xmax=x(l) 57090000 

do 3 i = l,npts 57100000 

fmin = dminl (fmin, f (i) ) 57110000 

fmax = dmaxl (fmax, f (i) ) 57120000 

xmin = dminl (xmin, x (i ) ) 57130000 

3 xmax = dmaxl (xmax, x (i) ) 57140000 


c 

c watch out for equal values 
c 

if (fmin. eq. fmax) then 
if (xmin . eq . xmax) then 
xmin=xmin-l . dO 
xmax=xmax+l . dO 
fmin=fmin-2 . dO 
fmax=fmax+2 . dO 
else 

fmin=fmin- (xmax-xmin) 
fmax=fmax+ (xmax-xmin) 
endif 
endif 

c 57150000 


c compute vertical scale (x-axis) in nice, round numbers 57160000 

c 57170000 

chen4 del = (fmax-fmin ) /36 . dO 
4 del = (fmax-fmin) /18 . dO 

k = dloglO (del) 57190000 

if (del.lt. l.dO) k = k-1 
q = 10 . d0**k 

c = del/q 57220000 

ic = c 57230000 

cp = ic 57240000 

if (cp.lt.c) cp = cp+l.dO 57250000 

dy = cp*q 57260000 

chen kcol = 96 57270000 

kcol = 48 57270000 

col = kcol 57280000 

dx = (xmax-xmin) /col 57290000 

c 57300000 

c adjust xmin, xmax, dx if x, y should be plotted on same scale 57310000 

c 57320000 

fmid = (fmin+fmax) /2 . dO 57330000 
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dx = . 6d0*dy 

tempi = 1.0005d0 + (xmax-xmin) /dx 

if (dabs (tempi ). It . 1 . d6) then 
l=templ 
else 

1=1000000 

endif 

* 


if (l.le.kcol) go to 6 

fmax = fmid + 2 . dO* (fmax-fmid) 

573600 


fmin = fmid + 2 . dO* (fmin-fmid) 
go to 4 

573900 

6 

xmid = (xmin+xmax) /2 .dO 
xmax = xmid + dx* (col/2 . dO) 
xmin = xmid - dx* (col/2 . dO ) 

574000 

c 


574300 

c print graph 

574400 

c 


574500 

chen************ 
c pause 



write (*,*) 

write (*,*) 'Press <Enter> to continue ' 

read (*, *) 




8 

write (6,9) 


9 

format (' 0 x-axis'/ ) 

df = dy 

5 7 4 8 0 C 


kzero = 1.0005d0 - xmin/dx 
if (kzero.gt . kcol) kzero = -1 

57500C 


ic = fmid/dy 

57510( 

cwas 

if (fmid. It . 0 . dO ) ic = ic-1 


chen 

c = ic + 18 

575301 


c = ic + 10 

575301 


y = c*dy 

575401 


yp = y+df/lOOO.dO 

57550 

cwas 

do 20 j = 1,36 

57560' 

chen 

do 20 j = 1,37 

57560 : 


do 20 j = 1,19 

57560' 


y = y-df 

57570 


iq = blank 

if (dabs (y) . It . (df /3 . dO) ) y = 0 . dO 
if (dabs (y) .It. (df/3.d0) ) iq = dash 

57580 


do 10 i = 1 , kcol 

57610 

10 

char(i) = iq 

57620 

c keep within char array! 



if (kzero. gt.0. and. kzero. It. 121) char(kzero) = vline 

do 15 i = l,npts 

1 = 1.0005d0 + (x (i) -xmin) /dx 

57640 

c stay within char array! 



if (1 . It . 1 . or . 1 . gt . 120) go to 15 
q = f (i) 

5766C 


if ( (q.ge.y) .and. (q.lt.yp) ) char(l) = star 

5767C 

15 

continue 

write (6,16) y, (char(i), i=l,kcol) 

5768C 

16 

format (el2.3,lx,120al) 

5769C 

20 

yp - y 

5770( 

c 

xmid = (xmin+xmax) /2 . dO 

5771( 

57721 
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write (6,27) xmin, xmid, xmax 

chen27format (13x, ' L ’ , 46x, 'M' , 46x, 'U'/e20.6,e46.6,e42.6/ 80x, ’y-axis' ) 
27 format (13x, f L',23x, ’M',23x, ' U' / ' y-axis ' , el5 . 6, e23 . 6, e23 . 6) 
return 
end 

subroutine stat (x, y, w, n, xav, yav, xrms, yrms, rms, wtot, wav, wrms 
* , xmin, xmax, ymin, ymax, wmin, wmax) 
c 


c 

0 

input 



c 


x, y 

ray intercepts 

c 


w 

ray weights 

c 

0 


n 

number of rays(>=l) 

c 

0 

output 



c 


xav, yav 

x,y values at centroid 

c 


xrms, yrms 

rms values of x and y about 

c 


rms 

rms value about centroid 

c 


wtot 

sum of weights 

c 


wav 

average value of weights 

c 


wrms 

rms deviation of weights 

c 


xmin 

minimum x value 

c 


xmax 

maximum x value 

c 


ymin 

minimum y value 

c 


ymax 

maximum y value 

c 


wmin 

minimum weight value 

c 

0 


wmax 

maximum weight value 

c 

calculate 

i weighted 

spot average and rms 


c 

implicit double precision (a-h,o-z) 

dimension x (n) , y (n) , w (n) 

xav=0 . dO 

yav=0.d0 

xrms=0 . dO 

yrms=0 . dO 

rms=0 . dO 

wtot=0.d0 

wav=0 . dO 

wrms=0 . dO 

xmin=0 . dO 

xmax=0 . dO 

ymin=0 .dO 

ymax=0 .dO 

wmin=0 . dO 

wmax=0 . dO 

if (n.lt.l) go to 1000 

xmin=x (1 ) 

xmax=x ( 1 ) 

ymin=y (1) 

ymax=y ( 1 ) 

wmin=w (1) 

wmax=w ( 1 ) 

sumw=0 . dO 

sumx=0 . dO 

sumy=0 . dO 

sumxsq=0 .dO 


57730000 

57740000 

57740000 

57750000 

57760000 
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sumysq=0 . dO 
sumwsq=0 . dO 
do 100 i=l, n 
sumx=sumx+x ( i ) *w ( i ) 
sumy=sumy+y (i) *w (i) 
sumxsq=sumxsq+x (i) *x (i) *w (i) 
sumysq=sumysq+y (i)*y(i)*w(i) 
sumw=sumw+w (i) 
sumwsq=sumwsq+w (i) *w (i) 
if (x (i) . It .xmin) xmin=x(i) 
if (y (i) .lt.ymin) ymin=y(i) 
if (x (i) .gt.xmax) xmax=x(i) 
if (y (i) .gt.ymax) ymax=y(i) 
if (w (i) . It . wmin) wmin=w(i) 
if (w (i) .gt.wmax) wmax=w(i) 

100 continue 

xav=s umx / s umw 
y a v= s umy / s umw 

xrms=sumxsq/sumw-xav*xav 
if (xrms . ge . 0 . dO ) then 
xrms=dsqrt (xrms) 
else 

xrms=0 . dO 
endif 

y rms= sumy s q / s umw-ya v* ya v 
if (yrms . ge . 0 . dO) then 
yrms=dsqrt (yrms) 
else 

yrms=0 . dO 
endif 

rms=dsqrt (xrms*xrms+yrms*yrms) 

wtot=sumw 

wav=sumw/dble (n) 

wrms=sumwsq/ dble (n) -wav*wav 
if (wrms . ge . 0 . dO ) then 
wrms=dsqrt (wrms) 
else 

wrms=0 . dO 
endif 


1000 continue 
return 
end 

subroutine xalign (tr, tf , iener ) 
implicit double precision (a-h,o-z) 






common /rsavel/ xpsv(200000) , ypsv(200000) , dxdzsv (200000) 

* , dydzsv(200000) , entx (200000) , enty (200000) ,wtsv( 15, 200000) 

★ zshift nsv 

,*++*****************+*+**+**+*+**++*+***+★★******+*+*+**++**★++*+*** 
namelist/test/x, y, iq, ang 

common /qxal/ qav (2 , 4 ) , wsum (4 ) , nqsum (4 ) * ^** 4 .** 

ir^^-k-k******* ********************************************* ************ 


327800 


32781H 

★ * 

327900' 
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c 

c 

c 

c 


calculate x-ray alignment correction for hyperbola tilt 
and for defocus 






32800000 

32801000 

32810000 


do 10 j=l , 4 
nqsum ( j ) =0 
wsum( j )=0.d0 
do 10 i=l , 2 
10 qav(i, j )=0.d0 

pi=datan (1 .d0) *4 . dO 

£*++★********+ **********++**++****+******************** 
c r is hyperbola radius hit for central ray (estimate) 
c f is axial distance to image from central ray hit on 
c hyperbola to image (estimate) 
r=tr 
f=tf 


32820200 


32820400 

32820500 

32821000 

32830200 

32830300 

32830400 

32830500 

32830600 


c cycle through the stored rays 
c 

c determine aperture quadrant 

c (approximate with entrance aperture position) 
do 100 i=l , nsv 
x=entx (i) 
y=enty (i) 
iq=-99 

if (x.eq. O.dO. and. y.eq. O.dO) go to 1000 
ang=datan2 (y, x) -pi/4 . dO 
c write (6, test) 

if (ang.lt. O.dO) ang=ang+2 . d0*pi 
iq=ang/ (pi/2 . dO) 
iq=iq- (iq/4 ) *4+1 
c write (6, test) 

1000 continue 

c accumulate quadrant average 

if (iq.lt.0.or.iq.gt.4) go to 2000 
qav ( 1 , iq ) =qav ( 1 , iq) +xpsv(i) *wtsv (iener, i) 
qav (2, iq) =qav (2 , iq) +ypsv(i) *wtsv (iener, i) 
nqsum (iq) =nqsum (iq) +1 
wsum(iq)=wsum(iq) +wtsv (iener, i) 

2000 continue 
c 


32831100 


32833100 

32833200 

32833300 

32833400 

32833500 

32833600 

32833700 

32833800 

32833900 

32841000 

32842000 

32845400 

32845500 

32845600 

32845700 


100 continue 


c 


c calculate averages 
nqtot=0 
wtot=0 . dO 
do 21 i=l , 4 

if (nqsum(i) .le.0) go to 3000 
nqtot=nqtot+nqsum (i) 
if (wsum (i) . le. O.dO) go to 3000 
wtot=wtot +wsum ( i ) 

21 continue 
do 20 j-1,4 
do 20 i=l, 2 

20 qav(i, j )=qav(i, j ) /wsum ( j ) 


32861000 

32861100 

32862000 

32862200 


32862300 

32862400 

32862600 

32862700 
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c calculate axial focus position error 

dfx=f /r*pi/4 . dO/dsqrt (2.d0) * (qav(l,2)-qav(l, 4) ) 
dfy=-f /r*pi/ 4 . dO/dsqrt (2 . dO ) * (qav (2,1) -qav (2,3) ) 
df= (dfx+dfy ) /2 . dO 

diamf= 2 . dO*r/f *dsqrt ( (dfx** 2 +dfy** 2 ) / 2 .d 0 ) 
£*+****★+**+**+********************************************************' 
c calculate tilt error estimate 
c (right handed rotation about y or x) 

thy=l.d0*pi/8 .dO/f* (qav ( 1 , 2 ) +qav ( 1 , 4 ) -qav(l, 1) -qav (1, 3) ) 
thx=-l . d0*pi/8 . dO/f * (qav ( 2 , 1 ) +qav ( 2 , 3) -qav (2, 2 ) -qav (2, 4 ) ) 
diami= 2 . dO*f *dsqrt (thx** 2 +thy** 2 ) 
diamis=diami/f *180 . dO /pi *3 600 . dO 


328628 

328629 

32863Q' 

328631- 

328631 


328636 

328637' 


thys=thy*180 . dO/pi *3 600 .dO 328639 

thxs=thx*180 .dO/pi *3600. dO 328640 

print out the results 328642' 

write (6,31) nqtot, (i,nqsum(i) , i=l, 4) , wtot, (i,wsum(i) ,i=l, 4) 328643 

* , dfx, dfy, df , diamf , thx, thy, diami, thxs, thys, diamis 

31 format (’0 x-ray alignment, total points 1 ,i 8 / 


★ 

* 

* 

★ 

* 

★ 


* 

★ 

* 

* 

★ 

* 

•ic 

* 

* 

★ 


quadrant 

quadrant 

quadrant 

quadrant 


,il, ’ 


/ il # ’ 


quadrant 
quadrant 
quadrant 
quadrant 
focus error 
focus error 


focus error (av) 
focus diameter 
tiltx error (rad) 
tilty error (rad) 
tilt diameter 
tiltx error (sec) 
tilty error (sec) 
tilt diameter (sec 


points ', 0 . 8 / 

, il, ' points ' , i 8 / 

, il, ' points ' , i 8 / 
points ' ,i 8 / 

total weight 
weight ',e22.15/ 
weight ',e22.15/ 
weight ' , e22 . 15/ 
weight ' , e22 . 15/ 

= ' , e22 . 15/ 

= 1 , e22 . 15/ 

= ' , e22 . 15/ 

= ' , e22 . 15/ 

= ’ , e22 . 15/ 

= ' , e22 . 15/ 

= ' , e22 . 15/ 

= ' , e22 . 15/ 

= ' , e22 . 15/ 


328645' 

328646 

328647 

328648 

328649- 


, e22 . 15/ 


» ii • 

i -L - 1 r 

f il T 

r ±± f 

T il T 

\il, ' 
x) 

(y) 


328646 

328647 

328648' 

32864? 

328650 

328651 

328652 

328653 

328654 

328655 


328656 


= ' , e22 . 15) 

write(6,32) (j, (qav (i, j ) , i=l, 2) , j=l, 4) 

32 format ( ' quadrant ' ,il,', xav= ',^22.15,', yav=',e22.15 

write ( 6 , 33) r, f 

33 format ( ' r value ’,e22.15/ 

* ' f value ',e22.15) 

return 


328657 

328658 

328656 

328660 

328661 

328662 

328663 

328664 

328665 


3000 continue 

write (6,34) (i, nqsum(i) , i=l, 4 ) , (i,wsum(i) , i=l, 4) 

34 format CO x-ray alignment error'/ 


* 

+ 

* 

★ 

★ 

* 


points ' 
points ' 


, i 8 / 
,i 8 / 


quadrant ' , il, ' 
quadrant ' , il, ' 
quadrant ',il,' points ',i 8 / 
quadrant ' ,il,' points ',i 8 / 
quadrant ',il,' weight ',e22.15/ 


328666 

328670 

328680 

328690 

328691 

328692 

328693 


quadrant ' , il, ' 
quadrant ' , il, ' 


weight 

weight 


, e22 . 15/ 
, e22 . 15/ 


quadrant ',il,' weight ',e22.15) 
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return 32870000 

gncl 32880000 

subroutine find (x, n, f rac, imin) 
implicit double precision (a-h,o-z) 
dimension frac(n) 

g + ± ± + + + * + ** + * + + *** + + + + + + + + * ** + + ** + * + * + + *++++ + ** + * + *' + + + + *+* + * + + + ** + 


C 

c find imin such that f rac (imin) It x It frac(imin+l) 
c nondecreasing frac array 
if (x . It . f rac ( 1 ) ) then 
imin=0 

elseif (x . gt . f rac (n) ) then 
imin=n 

else 

c keep picking half the array until 

c there is unit difference 

nl=l 
n2=n 

100 continue 

if ( (n2-nl ) . eq . 1 ) go to 200 
nmid= (nl+n2 ) / 2 
if (x . gt . f rac (nmid) ) then 
nl=nmid 

else 

n2=nmid 

endif 
go to 100 
200 continue 

imin=nl 

endif 

Q + + + + + ++ + + + + ++++* + + + ++ + * + * + ** + + + +++++** + ± + + + + * + + + + + + + + + + + + * + 


return 

end 

czzzzzzzzz /hdez206 . utils . fort (vabs ) 

function vabs (v) 

implicit double precision (a-h, o-z ) 
dimension v(3) 

vabs=dsqrt (v ( 1 ) *v (1 ) +v (2 ) *v (2 ) +v (3 ) *v (3) ) 

return 

end 

czzzzzzzzz /hdez206 . utils . fort (vcross) 

subroutine vcross (a, b, c) 
implicit double precision (a-h, o-z ) 
dimension a (3) ,b (3) , c (3) , d (3) 
d (1) =a (2 ) *b (3) -a (3) *b (2) 
d (2 ) =a (3) *b (1) -a (1) *b (3) 
d (3) =a (1) *b (2) -a (2) *b (1) 
c (1 ) =d (1) 
c (2 ) =d (2 ) 
c (3) =d (3) 
return 
end 

czzzzzzzzz /hdez206. utils. fort (vdiff ) 

subroutine vdiff(a,b,c) 
implicit double precision (a-h, o-z) 
dimension a(3),b(3),c(3) 
do 100 i=l,3 
100 c (i) =a (i) -b (i) 


00010000 

00020000 

00030000 

00040000 

00050000 

00060000 

00010000 

00020000 

00030000 

00040000 

00050000 

00060000 

00070000 

00080000 

00090000 

00100000 

00110000 

00010000 

00020000 

00030000 

00040000 

00050000 
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return 00060 

end 00070 

czzzzzzzzz /hdez206. utils. fort (vdot) 

function vdot (a, b) 00010 

implicit double precision (a-h, o-z) 00020 

dimension a(3),b(3) 00030 

vdot=a (1) *b(l)+a (2) *b(2)+a (3}*b(3) 00040 

return 00050 

end 00060 

czzzzzzzzz /hdez2 06. utils. fort (vprod) 

subroutine vprod (fac, a, c) 00010 

implicit double precision (a-h, o-z) 00020 

dimension a (3) , c (3) 00030 

do 100 i=l, 3 00040 

100 c (i)=fac*a (i) 00050 

return 00060 

end 00070 

czzzzzzzzz /hdez206. utils. fort (vsum) 

subroutine vsum(a,b,c) 00010 

implicit double precision (a-h, o-z) 00020 

dimension a (3) ,b (3) , c (3) 00030 

do 100 i=l , 3 00040 

100 c (i)=a (i) +b (i) 00050 

return 00060 

end 00070 

czzzzzzzzz /hdez206. utils. fort (vunit) 

subroutine vunit (vin,vout) 00010 

implicit double precision (a-h, o-z) 00020 

dimension vin (3) , vout (3) 00030 

abs=dsqrt (vin (1) *vin (l)+vin (2) *vin (2) +vin (3) *vin (3) ) 00040 

if (abs . le . 0 . ) abs=l.d+00 00050 

do 100 i-1,3 00060 

100 vout (i) =vin (i) /abs 00070 

return 00080 

end 00090 

subroutine deltbl (energy, delta, beta) 

implicit double precision (a-h, o-z) 1135C 

common/ rf ldat/wv (501 ) , dlt (501) ,bt (501) ,ndt,ilabel 
character * 75 ilabel 

hc=12.399d0 11370 

c convert energy in kev to wavelength in angstroms 11380 

x=hc/ energy 11390 

c find closest wavelength in table 11400 

nn=ndt-l 

do 100 i=l, nn 11430 

if (x.lt.wv(i) .or.x.gt.wv(i+l) ) go to 100 

imin=i 11450 

go to 200 11460 

100 continue 11470 

go to 2000 11480 

200 continue 1149C 

diffl=dabs (x-wv(imin) ) 
diff2=dabs (x-wv(imin+l) ) 

if (dif f 2 . It . dif f 1 ) imin=imin+l 11520 

if (imin.eq. 1) imin=imin+l 1153C 

if (imin.eq. ndt) imin=imin-l 

1155C 

interpolate for delta and beta 1156C 
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c 

c 

c 


2000 

2001 


(quadratic interpolation here) 

xl=wv (imin-1) 
x2=wv (imin) 
x3=wv (imin+1) 
yl=dlt (imin-1) 
y2=dlt (imin) 
y3=dlt (imin+1 ) 

delta=yintp (x, xl, x2, x3, yl, y2, y3) 
yl=bt (imin-1 ) 
y2=bt (imin) 
y3=bt (imin+1) 

beta=yintp (x, xl , x2 , x3 , yl , y2 , y3 ) 
return 
continue 


write (6, 2001) energy, x 


in deltbl'/ 


format ( ' Oenergy value out of range 

* lx, ' energy (kev) = ',ell.4, 

* ', wavelength (angstroms) = ' ,ell.4) 
write (6, 2002 ) 

2002 formate ******* warning ******') 
return 
end 

subroutine metref (anginc, delta, beta, rs, rp) 


implicit double precision (a-h, o-z] 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


input values: 
anginc 
delta, beta 


values : 


incident angle in 
reflectivity data 


radians 


reflectivity for parallel polarization 
reflectivity for perpendicular polarization 


output 
rs 
rp 

routine to calculate reflectivity as a function of incident 
angle and complex index of refraction for metals, 
reflectivity here is the ratio of reflected intensity to 
incident intensity (not the ratio of amplitudes) 

references : 


11570000 

11580000 

11590000 


11710000 

11720000 

11740000 

11760000 

11770000 


fr = 


11810000 
11820000 
10780000 
10790000 
10800000 
10810000 
10820000 
10830000 
10840000 
10890000 
10900000 
10910000 
10920000 
10930000 
10940000 
10950000 
10960000 
10970000 
10980000 
10990000 
11000000 

1. zombeck, m. v. , advanced x-ray astrophysics facility 11010000 

(axaf ) interim report optical constants and reflectivities foll020000 
nickel, gold, and platinum in the x-ray region of the spectrull030000 
(0.1 - 10 kev), report no. sao-axaf-83-016, smithsonian 11040000 

astrophysical observatory, Cambridge, ma., march 1983. 11050000 

11070000 
11080000 
11090000 
presslllOOOOO 
11110000 
11120000 
11130000 
11160000 
11170000 


2. vanspeybrock, 1. 
communication, april 


optical constants, private 
20, 1987. 


3. born, m., wolf, e., principles of optics, (pergamon 
6th ed., oxford, 1980) 


calculate 
l.dO - delta 


reflectivities 
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fi = -beta 
c 

si = dsin(anginc) 
ci = dcos(anginc) 
ti = dtan(anginc) 
c 

f rsq=l . dO-2 . dO*delta+delta*delta 
fisq=fi*fi 
sisq=si*si 
cisq=ci*ci 
tisq=ti*ti 
c 

bbb=delta*delta-2 . dO*delta-fisq+cisq 
aaa = dsqrt (bbb*bbb+4 . dO*frsq*fisq) 
asq = 0 . 5d0* (aaa+bbb) 
a = dsqrt (asq) 
rs=2 . dO*a*ci 

rs= (aaa-rs+cisq) / (aaa+rs+cisq) 

siti=si*ti 

sitisq=siti*siti 

tasiti=2 .dO*a*siti 

rp=aaa+sitisq 

rp=rs* (rp-tasiti) / (rp+tasiti) 
c 

return 

end 

subroutine rdref (iu, j ref r ) 
c 

c read reflectivity data from file in jrefr using unit 

implicit double precision (a-h,o-z) 
character * 80 ihead, jrefr 

common/rf ldat/wv (501 ) , dlt (501 ) , bt (501 ) , ndt, ilabel 
character * 75 ilabel 

c read complex indices of refraction 

open (unit=iu, file=jrefr) 
read (iu, 101) ndt, ilabel 
if (ndt. gt. 501) ndt=501 

101 format (i5, a75) 
read (iu, 102) ihead 

102 format (a80) 

do 200 j=l,ndt 

read (iu, 103) wv ( j ) , dlt ( j ) , bt ( j ) 

103 format (ell . 5, el3 . 7, el3 . 7 ) 

200 continue 

close (iu) 

return 

end 

subroutine calcdb (energy, nnrg, delbet) 
c 

c calculate delta, beta at nnrg energy values 
c 

implicit double precision (a-h,o-z) 
dimension energy (nnrg) , delbet (2, nnrg) 
common/rf ldat/wv (501 ) , dlt (501) ,bt (501) , ndt, ilabel 
character * 75 ilabel 
do 100 i=l,nnrg 

call deltbl (energy (i) , delbet (1, i) , delbet (2,i) ) 


Command mode source c 


11180 

11190 

11200 

11210 


11240 

11260 


11320 

11330 

12020 


12030 


12090 


12130 

12150 

12170 

12190 

12200 

12360 

12370 
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100 continue 
return 
end 

function yintp (x, xl, x2, x3, yl, y2, y3) 
implicit double precision (a-h,o-z) 
c quadratic interpolation 

c 

c reference: 

c 

c bevington, r.p., data reduction and error analysis 

c for the physical sciences, (mcgraw-hill, new york,1969), 

c p. 264. 

c 

d= (x-xl ) / (x2-xl ) 
d2=l . dO 

d3=(x3-xl)/(x2-xl) 

al=yl 

a2= (y2-al ) /d2 

a3= (y3-a2*d3-al ) /d3/ (d3-d2) 
yintp=al+a2*d+a3*d* (d-d2) 
return 
end 

subroutine axcir (sp, uv, asig, csig, irand) 
implicit double precision (a-h,o-z) 
dimension sp(3),uv(2) 
c 

c add random bivariate gaussian distribution 
c in the x,y plane to ray intercept sp 
c 

c asig and csig are the gaussian sigma values 
c in the axial and circumferential directions 
c respectively (in the x,y plane) 
c 

c axial direction is along direction 
c of unit vector uv 
c 

c circumferential direction is perpendicular 
c to axial direction 
c 

if (asig . ne . 0 . dO . or . csig . ne . 0 . dO ) then 
c 

call granf (irand, wl, w2) 
c 

c simulate axial slope errors first 

c 

if (asig . ne . 0 . dO ) then 
ds=wl' ,lr asig 
sp (l)=sp (1) +ds*uv(l) 
sp (2)=sp (2) +ds*uv(2) 

endif 

c 

c simulate circumferential slope errors here, 
c 

if (csig . ne . 0 . dO ) then 
ds=w2*csig 
sp (1 ) =sp (1) -uv(2 ) *ds 
sp (2)=sp (2) +uv(l) *ds 

endif 


11830000 

11840000 

11850000 

11860000 

11870000 

11880000 

11890000 

11900000 

11910000 

11920000 

11930000 

11940000 

11950000 

11960000 

11970000 

11980000 

11990000 

12000000 

12010000 

22360000 

22380000 


22470000 


22450000 

22460000 

22510000 


22590000 

22620000 

22630000 
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endif 
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2269G 


return 
end 

subroutine eescat (sp, ft, uv, n, f rac, s, irand) 

c scatter ray intercept sp() in x,y plane along line with 
c scatter direction vector uv. use integrated 
c angular scattering probability array frac() of dimension n. 
c the n corresponding angular displacements are in array s(). 
c the assumed effective focal length is ft. 
c 


2272C 

2273C 


input : 


sp 

ft 

uv 

n 

frac 

s 

irand 


output 


sp 


input ray intercept (x,y, z) 
assumed focal length 
unit vector in scatter direction 
(scatter in x,y plane) 

number of integrated probability fractions 
(assumed ge 2) 

array of integrated probability fractions 
(assumed ge 0 and in nondecreasing sequence) 
angular displacements corresponding to fractions 
(radians, increasing sequence, assumed small so 
that s=sin (s) =tan (s) is valid) 
integer parameter for random generator 
ranf. it must be initialized with ranset 
outside of this routine. 

then it is modified with each use of ranf. 


ray intercept after scattering in x,y plane 


implicit double precision (a-h,o-z) 
dimension f rac (n ) , s (n) , sp (3 ) , uv (2 ) 

c namelist /outl/ x,nl,n2,imin 

c namelist /out2/ y, xl, x2, yl, y2 

£************** + + ** + ** + ** ************************** it******************** 

C 

c pick random number on (0,1) 
c 

300 x=ranf (irand) 
c 

Q******* ★*** + ****★**★* + ***** + + + ********** ****************** ************* 

c 

c find imin such that frac(imin) It x It frac(imin+l) 
c nondecreasing frac array 
if (x. It. frac (1) ) then 
imin=0 

el seif (x . gt . f rac (n) ) then 
imin=n 

else 
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keep picking half the array until 
there is unit difference 
nl=l 
n2=n 

100 continue 

if ( (n2-nl) .eq. 1) go to 200 
nmid= (nl+n2 ) / 2 
if (x. gt . f rac (nmid) ) then 
nl=nmid 

else 

n2=nmid 

endif 
go to 100 
200 continue 

if (frac (nl) .eq.frac (n2) ) then 
imin=-nl 

else 

imin=nl 

endif 

c *.** + ** + ** + + + ** + +•** + ** + + * + ******* + *******************'***** *********** * 
c 

c debug print 
c write (6, outl) 

c ************************* ********************************* ************* 

c 

c watch out for imin le 0 or imin=n 

c (imin is It 0 if x equals both of the frac values, skip 
c these cases to be certain of having no points in 
c regions of zero probability) 

c (imin=0 or n means x is outside of frac value range) 
c 

if (imin. gt.0. and. imin. It. n) then 
xl=f rac (imin) 
x2=f rac (imin+1) 
yl=s (imin) 
y2=s (imin+1 ) 

else 

go to 300 

endif 

************************************* ********************************* 
c 

c linear interpolation of frac array 

y=yl+ (x-xl ) / (x2-xl ) * (y2-yl ) 
y=y*f t 

sp (l)=sp (1) +uv(l) *y 

c *++ + * + *iH* + *iH + **+H******************** + ******+** + ****************** 

c 

c debug print 
c write (6, out2) 

^+**+**+*+**+* ********************** +**+*+**+*++*+*★++*++++ ************* 
c . 12000000 

re ^ urn 12010000 
end 
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subroutine granf (iy, xl, x2 ) 
c routine to produce gaussian distribution n(0,l) 
implicit double precision (a-h,o-z) 

100 vl=2 . d0*ranf (iy) -1 . d0 
v2=2 . d0*ranf (iy) -1 . dO 
s=vl*vl+v2*v2 
if (s.gt.l.dO) go to 100 
if (s.eq.O.dO) go to 100 
xl=vl*dsqrt (-2 . d0*dlog (s ) /s ) 
x2=v2*dsqrt (-2 . d0*dlog (s) /s) 
return 

entry grset (iy) 
call ranset (iy) 
return 
end 

subroutine disc ( sp, diam, irand, pi ) 
implicit double precision (a-h,o-z) 
dimension sp(3) 
c 

c add random errors on disc of diameter diam 
c in x,y plane to ray intercept sp 
c 

if (diam.ne.O.dO) then 

radius=diam/2 . d0*dsqrt (ranf (irand) ) 
theta=2 . d0*pi*ranf (irand) 
sp (l)=sp (l)+radius*dcos (theta) 
sp (2 ) =sp (2 ) +radius*dsin (theta) 

endif 

return 

end 

function ranf (id) 
c 

c uniform distribution random number generator, 
c period is approximately 2 billion numbers, 
c however the least significant bits are less random, 
c 

c this routine generates random numbers in the 
c range (0.,1.). the process can be reinitialized 
c by calling ranset (iy) where iy is an arbitrary 
c integer. there after the function 'ranf' may 

c be used, normally the variable iy should not be 

c altered between calls to 'ranf'. the random 

c number seed iy may be reset when desired by 

c calling ranset (iy). 

c 

implicit double precision (a-h,o-z) 
c 

common /comran/ s, iy, ia, ic, mic, m2 
c 

c following data is for honeywell 560 computer 
c data s, iy, ia, ic,mic,m2 /z3920000000000000, 

c $ zl2b9b0al, z3243f 6ad, zlb0cbl75, z64f34e8b, Z40000000/ 

c 

iy=iy*ia 

if (iy.gt.mic) iy= (iy-m2 ) -m2 
iy=iy+ic 

if (iy.lt.0) iy= (iy+m2) +m2 
ranf=dble (iy) *s 


00010 

00011 

00020 

00030 

00040 

00050 

0006C 

00061 

00070 

00080 

00090 

00091 

00092 

00093 
00100 

22910 

22920 

22930 


22990 


23010 

23020 

23030 

23040 

23050 

50010 

50020 

50030 

50040 

50050 

50060 

5007C 

50080 

50090 

50100 

50110 

50120 

50130 

50140 

50150 

50160 

50170 

50180 

50190 

50200 

50210 

5022C 

50230 

5024C 

5025C 

50260 

50270 

5028C 
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return 

entry ranset (id) 

iy=id 

m=l 

10 m2=m 

m=2*m2 

if (m.gt.m2) go to 10 
halfm=m2 

ia=8*dint (halfm*datan (1 . dO ) /8 . dO ) +5 
ic=2*dint (halfm* (0 . 5d0-dsqrt (3 . dO) /6 . dO) ) +1 
mic= (m2-ic) +m2 
s=. 5d0/halfm 

if (iy.eq.O) iy=314159265 

return 

end 

subroutine rect (sp, xlenth, ylenth, uv, irand) 
implicit double precision (a-h,o-z) 
dimension sp(3),uv(2) 
c 

c add uniform random errors on rectangle of widths xlenth, ylenth 
c in x,y plane to ray intercept sp 
c 

c rotate rectangle the same way that 
c x axis would be rotated ccw toward 
c unit vector uv 
c 

if (xlenth . ne . 0 . dO . or . ylenth . ne . 0 . dO ) then 


50290000 

50300000 

50310000 

50320000 

50330000 

50340000 

50350000 

50360000 

50370000 

50380000 

50390000 

50400000 

50410000 

50420000 

50430000 

23070000 

23090000 


23160000 


if (xlenth . eq . 0 . dO ) then 
dx=0 . dO 

else 

dx= (ranf (irand) -0 . 5d0) *xlenth 

endif 


if (ylenth. eq. O.dO) then 
dy=0 . dO 

else 

dy= (ranf (irand) -0 . 5d0 ) * ylenth 

endif 


if (uv(l) .ne.l.dO) call turn (dx, dy, uv) 
c 

sp (l)=sp (1) +dx 


sp (2 ) =sp (2) +dy 
c 

endif 

c 

return 23190000 

end 23200000 

subroutine turn(x,y,uv) 
c 

c rotate the object point in 
c the x,y plane in the same 
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c manner that the x axis 
c must be rotated ccw to 
c the unit vector uv 
c 

implicit double precision (a-h,o-z) 

dimension uv(2) 

xt=x 

yt=y 

x=xt*uv(l) -yt*uv(2) 
y=xt*uv (2 ) +yt*uv ( 1 ) 
return 
end 
c 

£+++++*+*+++++++++++++**++++++**+++**+++*********+*++++*+*+*+*+**+*++*++ r 

C 

c SAMPLE PRINT OUT FOLLOWS 
c 

c 
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A5.4 gt2hlp.doc Help Document (ASCII text) 


*++++++*++*++*+* + **+*■■*+*■•*•*■*■*•*•+■*■-*•■*•*+■*+■*•■*■+■*■*+**++■*■*•*+*•■*+++*++■**■** 

* 

* Help document for GRAZTRACE command mode 

* 

* Entries begin with command mnumornic and end with 'See' 

* To prevent mismatch, command mnumornic must have two leading 

* blank lines 

* In the description, Do not let the line begin with command 

* mnumornic have such two leading blank lines. 

* 

*1 1***** + *** + * + + + * + + *-* + + + + *** + *-*-**-* + + + * + -*- + * + + * + + + * + * + ** + * + + **-** + * 


LEN 


Declares that the following entrees are for a new 
system, rather than a modification to the old. 

Initializes defaults for a new system. AL1 old system 
data are destroyed. Len is not necessary prior to 
restoring a lens from the file. 

See also: RES. 


ADA surf_num adata_num adata 

Input surface error 

surf_num - surface number 
adata_num - surface error number 
adata - surface error 

See also: SDA. 


AZI azim 

Set source azimuth angle 
See aslo: DAZ, ELE. 

APE surf_num iaper 

Declare surface frame type 

surf_num - surface number 
iaper - character string ( * 8 0 ) 

See also: DXC, DYC, DXR, DYR. 

DAZ delaz 
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Set azimuth range 
See also: AZI. 


DEB delb_num iener surf_num delb_val 

Input surface reflectivity data (alpha, beta) 

delb_num - reflectivity number, 1 for alpha 

2 for beta 

iener - energy level 
surf_num - surface number 
delb_val - delbet value 

See also: IND. 


DIS dec_num surf_num dec_value 
Set displacement data 

1 for Z dec. 

dec_num - decenter number, 2 for Y dec. 

3 for X dec. 

surf_num - surface number 
dec_val - decenter value 

See also: MOV, TIL. 


DXC surf_num radius_x 

Set obscuration radius X 

surf_num - surface number 
radius_x - radius X 

See also: DYC, DXR, DYR, OBS. 


DYC surf_num radius_y 

Set obscuration radius Y 

surf_num - surface number 
radius_y - radius Y 

See also: DXC, DXR, DYR, OBS. 


DXR surf_num rect_x 

Set obscuration width X 

surf_num - surface number 
rect x - width X 


Command mode source 
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See also: DXC, DYC, DYR, THR, OBS. 

DYR surf_num rect_y 

Set obscuration height Y 

surf_num - surface number 
rect_y - height Y 

See also: DXC, DYC, DXR, THR, OBS. 
ELE elev 

Set source elevation 
elev - source elevation angle 
See also: AZI, DAZ . 

ENE iener ener_val 

Set energy levels 

iener - energy level number 
ener_val - energy level value 

See also: NRG. 

FDF surf_num ifdfm 

Define deformation file name 

surf_num - surface number 
ifdfm - deformation file name 

See also: TYP. 

FOC foclen 

Check or overwrite focal langth 
foclen - system focal length 
See also: FCS. 

IND surf_number findex 

Input surface index 

surf_num - surface number 
findex - surface index 
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See also: THI. 

ITI itilt 

Define tilt sequence 
surf_num - surface number 

itilt - surface tilt sequence (e.g. 123 for 1, 2, 3) 
See also: TIL, MOV. 

MOD irnode 

Define surface ray trace mode 
imode - surface ray trace mode 
See also: TYP. 

MAT i j k rmat(i,j,k) 

Set surface displacement transformation matrix 

i, j, k - matrix indies 
rmat(i,j,k) - matrix values 

See also: MOV. 

MOV suf_num imove 

Set surface tilt flag 

surf_num - surface number 

imove - surface tilt flag, 1 for tilt 

0 for not tilt 

See also: TIL, ITI, DIS. 

NRG nnrg 

Declare total energy level number 
nnrg - total energy level number 
See also: ENE. 

OBS surf_num iobs 

Define surface obscuration type 
surf num - surface number 
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iobs - surface obscuration type 
See also: DXC, DYC, DXR, DYR. 

RLI surf_num radlim_num radlim_val 

Set minimum and maximum radii of the surface 
surf num - surface number 

radlTm num - radii number, 1 for minimum radius 
~ 2 for maximum radius 

radlim_val - radius value 
See also: SDA. 


RST surf_num irstr 

Set surface restore flag 
surface num - surface number 

irstr - surface rstore flag, 0 for not restore 

1 for restore 


See also: MOV. 


SDA surf_num sdata_num sdata 

Input surface data 

surf_num - surface number 
sdata_num - surface data number 
sdata - surface data 

See also: THI, RLI. 


SOU source_num source_pos 

Define source position relative to undisplaced center 
of the first surface 


1 for X 

source num - source position number, 2 for Y 

3 for Z 

source pos - source position value 
See also: ZRA. 


SUR nsurf 

Define total numberr of the surfaces 
nsirf - total number of the surfaces. 
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TIL surf_num tilt_num tilt_val 

Input surface tilt data 

surf_num - surface number 
tilt num - tilt number 
tilt_val - surface tilt value 

See also: ITI, MOV, DIS. 


TYP surf_num itype 

Define surface type 

surf_num - surface number 
itype - surface type 

See also: SUR. 


TIT surface_num ihead 

Set surface description 

surface_num - surface number 
ihead - surface head information 

See also: TYP. 


THR surf_num threct 

Set angle of obscuration rectangle 

surf_num - surface number 

threct - angle of obscuration rectangle 

See also: DXR, DYR, OBS. 

THI surf_num thick 

Input surface separation 

surf_num surface number 
thick - shrface separation 

See also: SDA. 


WGT surf_num iwgt 

Set surface reflectivity weight flag 
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surf_num - surface number 

iwgt - surface reflectivity weight flag 

See also: DEB. 

XWI surf_num xwidth 

Input rectangular aperture width x 

surf_num surrface number 
xwidth - aperture width x 

See also: YWI . 

YWI surf_num ywidth 

Input rectangular aperture height y 

surf_num - surface number 
ywidth - aperture heoght y 

See also: XWI. 

ZRA range 

Set source distance to the first surface 
zrange - source distance 
See also: SOU. 

SAV filspec 

Save current system to prescription file 
filspec - file name 
See also: RES, LIS. 

RES filspec 

Restore system from prescription file 
filspec - file name 
See also: SAV, LIS. 

LIS 

List all system data 
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See also: RES, SAV. 


WSP 


Randmo ray trace 

WSP traces nra successfull rays randomly arranged on 
the first surface annulus at location Z=0. 

Intercept, slopes, and effective area weights are 
stored for the last surface for each ray. 

Options: 

AZM azimus_middle_angle, (default is 0) 

DAZ delta_azimus_angle, (default 2 pi) 

NRA number_of_rays, (default 1000) 

GO for excuting the analysis, 

CAN for cancelling the analysis. 

See also: WS2 , GRI, GR2 , RSV. 


WS2 


Modified wheel spoke ray trace 

WS2 traces wheel spoke rays arranged on the first 
surface annulus at location Z=0. 

Intercept, slopes, and effective area weights are 
stored for the last surface for each ray. 

Options: 

AZM azimus_middle_angle, (default is 0) 

DAZ delta_azimus_angle, (default 2 pi) 

NLO radial_points, (default 100) 

NAZ azimuthal_points . (default 72) 

GO for excuting the analysis, 

CAN for cancelling the analysis. 

See also: WSP, GRI, GR2 , RSV. 


GRI 


Trace rays on a modified grid 

WGI traces rays on a grid with constant redial and 
varying azimuthal increments on the first surface 
annulus at location Z=0. 

Intercept, slopes, and effective area weights are 
stored for the last surface for each ray. 

Ray weights are set to 1. 

Options : 
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AZM azimus_middle_angle, (default is 0) 
DAZ delta_azimus_angle, (default 2 pi) 
NLO radial_points, (default 100) 

NAZ azimuthal_points . (default 72) 

GO for excuting the analysis, 

CAN for cancelling the analysis. 

See also: WSP, WS2, GR2 , RSV. 


GR2 


Trace rays on a grid 

GR2 traces rays on a grid with constant radial and 
azimuthal increments on the first surface annulus at 

location Z=0. . 

Intercept, slopes, and effective area weights are 
stored for the last surface for each ray. 

Ray weights are set to 1. 

Options : 

AZM azimus_middle_angle, (default is 0) 

DAZ delta azimus_angle, (default 2 pi) 

NLO radiaTjooints, (default 100) 

NAZ azimuthal_points . (default 72) 

GO for excuting the analysis, 

CAN for cancelling the analysis. 

See also: WSP, WS2 , GRI, RSV. 


WST 


Calculate average position and rms 

WST calculates average position and rms of stored rays at 
specified energy level. 

Options : 

IEN energy_level (default is 1) 

GO for excuting the analysis, 

CAN for cancelling the analysis. 

See also: SPO. 


RSV filspec 

Save ray data as well as system data to a file 

RSV saves all the ray data as well as system data to a 
f ile . 
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See also: WSP, WS2, GRI, GR2. 


FCS 

Refocus 

FCS refiocuses the system which relocate the 
evaluation plane to the best location. 

Option: 

IEN energy_level . (default is 1} 

GO for excuting the refocusing 

CAN for cancellin the refocusing 

See also: FOC. 


SPO. 


Unweighted spot diagram 

SPO generates plots of ray interceptions with the 
image surface to represent image characteristics. 

Options : 

XCE center_of_x, (default is current average X) 
YCE center_of_y, (default is current average Y) 
NRA number_of_rays , (default is 1000) 

GO for execting the spot diagram plot 
CAN for candelling the spot diagram. 

See also: RAD. 


RAD 


Encircled energy 

RAD computes the radial energy distribution - the 

diameters in the image within which fixed percentages 
of light energy are contained. 

Options : 

AMA angle_in_arc_sec, (default is 2.0) 

IEN energy_level, (default is 1) 

NFR number_of_fractions, (default is 20) 

NRA number_of_rays , (default is 500) 

XCE center_of_x, (default is current average X) 

YCE center_of_y, (default is current average Y) 

GO for executing the analysis, 

CAN for cancelling the analysys. 
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See also: SPO. 

AZM azimuth_middle_angle 

Set azimuth middle point 
See also: WSP, WS2 , GRI, GR2 . 

NLO radial_points 

Set number of rays along the radius 
See also: WS2, GRI, GR2 . 

NAZ azimuthal_points 

Set number orf rays around the annuals 
See also: WS2, GRI, GR2 . 

IEN energy_level 

Cancel the default set and set desired level for the 
analysis . 

See also: FCS, WST, RAD. 

XCE center_of_x 

Override center coordinate X 
Default is current average X. 

See also: SPO, RAD 

YCE center_of_y 

Override center coordinate Y 
Default is current average Y. 

See also: SPO, RAD 
NRA number_of_ray 

Set desired ray number fro the analysis. 

See also: WSP, WS2 , GRI, GR2, SPO, RAD. 

AMA angle 

Cancel the default set and set desired angle. 
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See also: RAD. 

NFR number_of_f ractions 

Cancel the default set and set desired number. 

See also: RAD. 

7 

Help and inquiry 
? only serves as help command, 

? in data field entry will allow to check current value. 
See also HEL. 


HEL 


Help 

Help only will automatically provide the imformation 
about latest command entered before help. 

Help followed by a command will provide imformation 
about that command. 

Help followed by any unknown command will list all 
GRAZTRACE commands . 

See also: "?". 


GO 


Excution option 

GO excutes the analysis using all previously 

entered option inputs and then return control to 
the command level. 

See also: CAN. 

CAN 


Cancel option 

CAN cancens all inputs to the analysis and 
return control to the command level. 

See also: GO. 

EX I 
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Exiting the program 

EXI exits the GRAZTRACE to the operation system. 
When EXI is typed in, a query is ieeued requiring a 
Yes or No answer (Y or N) ; a Y will cancel any 
option you are in and complete the exit. 

See also: CAN. 


DET delta 

Set ray intercept convergence criterion 
delta - convergence criterion. 

See also: MAX. 


MAX kmax 

Set maximum iteration loops for ray intercept 
kmax - maximum iteration loops. 

See also: DET 

PRI surf_num kprint 

Set surface ray print flag array 

surf_num - surface number 
kprint - print flag 

See also: PRI. 


EFF 


Check effective area accumulation 
See also: ERR, VIG, PAS. 


ERR 


Check number of failure rays 
See also: EFF, VIG, PAS. 


VIG 


Check number of vignetted rays 
See also: EFF, ERR, PAS. 
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PAS 

Check number of successful rays 
See also: EFF, ERR, VIG. 

SYS op_sys_command 

Operation system shell 
See also: EDI. 

EDI 

UNIX editor to edit prescription. 
See also: SYS. 


Unknown command 

GRAZTRACE commands list 


ADA 

AMA 

APE 

AZI 

AZM 

CAN 

DAZ 

DEB 

DET 

DIS 

DXC 

DXR 

DYC 

DYR 

EDI 

EFF 

ELE 

ENE 

ERR 

EXI 

FCS 

FDF 

FOC 

GO 

GRI 

GR2 

HEL 

IEN 

IND 

ITI 

LEN 

LIS 

MAT 

MAX 

MOD 

MOV 

NAZ 

NFR 

NLO 

NRA 

NRG 

OBS 

PAS 

PRI 

RAD 

RES 

RLI 

RST 

RSV 

SAV 

SDA 

SOU 

SPO 

SUR 

SYS 

THI 

THR 

TIL 

TIT 

TYP 

VIG 

WGT 

WSP 

WST 

•? 

WS2 

XCE 

XWI 

YCE 

YWI 

ZRA 

See 

manual or 

Type HELp 

for 

further 

information 
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A5.5 sample.pre Sample Prescription (Text with FORTRAN name list format) 


&inp 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0. 

0. 

0. 

0. 

0 . 

0 . 

0 . 

0 . 

0 ., 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 


zrange= 


1 .OOOOOOOOOOOOOD+50, 

elev= 

0., 

azim= 

0. . 

f oclen= 


656. 

48323128448, 

source= 

0. 

0. 

- 

1. OOOOOOOOOOOOOD+50. 

radlim= 


/5. 050255499563 

76 

i. 401708618033 

0. 

0 . c 

1. 

0. 

0. 

0. 0 

i. o. c 

). 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0., 

dxcirc 

= 0 

. 0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0., 

dycirc= 

: 0 

. 0 

. 0. 

0 

. 0 

. 0 

. 0. 

0 . 0. 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

, xwidth= 

: 0. 

0. 

0. 

0. 

0. 

0 

. 0 

. 0. 

0 

. 0 

. 0 

. 0. 

0 . 0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0., 

ywidth= 

0. 

0 • 

0 . 

0 . 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0., 

, dxrect= 

= 0 

. 0 

. 0. 

0. 0. 

0. 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0., 

dyrect= 

0. 

0 

. 0 

. 0. 

0 

. 0 

. 0 

. 0. 

0. 0. 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 . 0 . 

0 . 

threct= 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

. 0, 

. 0. 

0, 

. 0, 

. 0. 

. 0. 

0 . 0 . 

o „ 

u. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

o . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. , 

r zlim= 0 . 

0. 

0 . 

0 . 

0. 

0. 

0. 

-23.750000000000 

23 

.750000000000 0 

0. 0 

0 . 

0 , 

0 . 

0. 

0. 

0. 

-23.750000000000 

23 

.750000000000 0 

0. 0 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 . , adata= 

0 . 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

o . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

o # 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 . 0. 

0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 . 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 
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Appendix 6 Structural Analysis Interface 


Appendix 6. Structural Analysis interface 

A6.1 drinfea.f Structural Analysis Interface (FORTRAN source code) 


implicit undefined (a-z) 

c**************************************-********************************* 

+ ★ T*r ★ ★ * T*r 

c AXAF MIRROR DATA INTERPOLATION PROGRAM : COMPUTE DR (201 X 1001) 

c input file is COSMOS/M file 

c NAME : drincos.f 

c 

c Convert deformation data file from COSMOS/M to graztrace 

c 

c COSMOS/M data file is generated by using LISTLOG to open a file, 

c and NODELIST, DISLIST to dump node data and deformation data, 

c and LISTLOG to close the file, 

c 

c * *****+**************************************************************** 
c 

c 

c PARAMETER DEFINITION 

c 

c 

c number of files 
c 

integer*4 nbrfile 
parameter (nbrfile = 2) 
c 

c number of azimuthal points interpolated in the 
c range -pi through +pi 
c 

integerM nbthseq 
parameter (nbthseq = 1001) 
c 

c number of axial points interpolated 
c 

integerM nbzseq 
parameter (nbzseq = 201) 
integerM opbfsz 

parameter (opbfsz = nbthseq * nbzseq) 
integerM nbzseqml 
parameter (nbzseqml = nbzseq - 1) 
c 

c z extent of interpolation 
c 

real lz 

parameter (lz = 990.6) 
c 
c 

c maximum number of input points 
integerM nbinpts 
parameter (nbinpts = 250000) 
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Q***************************************************! *****★* + ************ 

logical*l space, unsc, numO, num9, capa, capz, sma, smz, ch, slash 
&, period, tilde 
logical*l msg(80, 20) 
character inpfname*132, outfname*132 
character rsp(20)*80 
character fname*133 
character * 256 fnme 
double precision thzinp(2, nbinpts) 
double precision thseq (nbthseq) , zseq(nbzseq) 
double precision intdr (nbthseq, nbzseq) 
double precision dztht (nbinpts) , dzzval (nbinpts) 

* , dzdr (nbinpts) , angext, tO, zO, drO, dzts, dzzs, dzdrs 
integerM nbrvch, nmsgl 
integerM icc, ic, ndim, ierr, iu, j j 
parameter (ndim = nbinpts) 
integerM nn 
integerM i, ii, iii 
integerM status 
integerM nsize, isize, osize 
logical*l filexists, debug 
real pi, dtht 
real thcvf 

real lzov2, lzintv, 1 
real thll, thul, zll, zul 
real op(opbfsz) 
real sttime, etime, tarray(2) 
c 

c this is needed by dsurf for workspace 
c 

real rwksp 

common/worksp/rwksp (1698008) 
c 



c PARAMETER INITIALIZATION 

c 

1 format (lx) 

2 format (42h NAME OF INPUT DATA FILE (1-132 CHARS. - , 

&18hALPH/NUM/UNSC) ? ) 

3 format (42h NAME OF OUTPUT DATA FILE (1-132 CHARS. -, 

&18hALPH/NUM/UNSC) ? ) 

4 format (al32) 

5 format (49h INPUT DESIRED HEADER MESSAGE (MAX. OF 20 LINES/, 

&23h80 CHARS. PER LINE) ? ) 

7 format (a80) 
c 



c 

c REQUEST USER TO ENTER 

c 1. NAME OF INPUT DATA FILE 

c 2. NAME OF OUTPUT DATA FILE 

c 3. HEADER MESSAGE 



c 

data space / x'20' / 
data unsc / x'5f' / 
data numO / x'30' / 
data num9 / x'39' / 
data capa / x'41' / 
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data capz / x'5a' / 
data sma / x'61' / 
data smz / x'7a' / 
data slash / x'2f' / 
data period / x'2e' / 
data tilde / x'7e' / 
data msg / 1600*x'20' / 
data debug/ .false. / 
do i = 1, nbrfile 
write (unit=*, fmt=l) 

1000 if (i .eq. 1) write (unit=*, fmt=2) 
if (i .eq. 2) write (unit=*, fmt=3) 
read (uni t=*, fmt=4) fname 
nsize = 0 

do ii = 133, 1, -1 

if (fname (ii: ii) .ne. ' ') then 

nsize = ii 

goto 1101 

end if 

end do 

1101 continue 

if ((nsize .It. 1) .or. (nsize .gt. 132)) then 
1100 write (unit=*, fmt=*) ' FILENAME HAS INVALID LENGTH ' 
goto 1000 
end if 

if (fname (1:1) .eq. '_' ) then 
write (unit=*, fmt=*) 

&’ FILENAME CANNOT BEGIN WITH AN UNDERSCORE CHARACTER', ' : ' // 

&fname (l:nsize) 
goto 1000 
end if 
nbrvch = 0 
do ii = 1, nsize 
ch = ichar (fname (ii : ii) ) 

if ((((((( (ch .eq. space) .or. (ch .eq. unsc) ) .or. (ch .eq. slash 
&)) .or. (ch .eq. period)) .or. (ch .eq. tilde)) .or. ( (ch .ge. 
SnumO) .and. (ch .le. num9))) .or. ( (ch .ge. capa) .and. (ch .le. 
&capz))) .or. ( (ch .ge. sma) .and. (ch .le. smz))) nbrvch = nbrvch 
& + 1 
end do 

if (nbrvch .It. nsize) then 

write (unit=*, fmt=*) ' FILE NAME CONTAINS INVALID CHARACTERS : ' 

& // fname (1 : nsize) 
goto 1000 
end if 

if (i .eq. 1) then 
inpfname = fname (1 : nsize) 
isize = nsize 
end if 

if (i .eq. 2) then 
outfname = fname (1 : nsize) 
osize = nsize 
end if 
end do 

write (unit=*, fmt=l) 
write (unit=* , fmt=5 ) 

write (*,*)' (END WITH ctrl-d ON A LINE BY ITSELF)' 
do i = 1, 20 

read(unit=*, fmt=7, end=1200) rsp(i) 
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nmsgl = i 
end do 

1200 do i = 1, nmsgl 
do ii = 1, 80 

msg(ii,i) = ichar (rsp (i) (ii: ii) ) 
end do 
end do 
c 

c 

c CHECK FOR EXISTENCE OF INPUT DATA FILE 

c OPEN INPUT DATA FILE 

c READ/PROCESS INPUT DATA FILE 

c 

inquire (file=inpfname (1 : isize) , exist=f ilexists ) 
if (.not. filexists) then 

write (unit=*, fmt=*) ' INPUT DATA FILE inpf name ( 1 : isize) 

&, ’ DOES NOT EXIST' 

stop 
end if 
c 

c thcvf is the factor to make the spacing in the z direction 
c and theta direction comparable in magnitude, this is required 
c by dsurf for some reason, 
c 

c (ideally theta angles in radians should be scaled by the 
c radius of the cylinder so that the the interpolation is 
c done directly in surface distance coordinates on the 
c cylindrical surface) 
c 

r.********************************************************-* 

iu=10 

f nme=inpfname (1 : isize) 
c coordinate convert 

1260 write (*, ' (a, $)') 'CONVERT CARTESIEN DATA TO CYLINDICAL (Y/N) ' 
read (*, ' (a) ' ) fname 
if (fname.eq. ' ' ) go to 1260 
i=l 

do while (fname (i:i) .eq. ' ') 

i=i+l 

end do 

if ( (fname (i : i) . eq. ' Y ') .or . (fname (i: i) .eq. 'y' ) ) then 
icc = 1 

else if ( (fname (i:i) .eq. 'N' ) .or. (fname(iri) .eq. 'n' ) ) then 

icc = 0 

else 

go to 1260 
end if 

c cosmos/m or nastran 

1300 write (*, ’ (a, $) ' ) 'INPUT DATA FROM COSMOS/M / NASTRAN (C/N) ' 
read (*, ' (a) ' ) fname 
if (fname.eq. ' ' ) go to 1300 
i=l 

do while (fname (i : i ). eq . ' ’) 

i=i+l 

end do 

if ( (fname (i:i) .eq. 'C' ) .or. (fname(i:i) .eq. 'c' ) ) go to 1310 
if ( (fname (i: i) .eq. 'N' ) .or. (fname (i:i) .eq. 'n' ) ) go to 1320 
go to 1300 

c read in the data from the COSMOS/M file 
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1310 call rcos (iu, fnme, ndim, ierr, ic, dztht, dzzval, dzdr , icc, debug) 
go to 1350 

c read in the data from the NASTRAN file 

1320 call rnas (iu, fnme, ndim, ierr, ic, dztht, dzzval, dzdr, icc, debug) 

1350 if (ierr . ne . 0 ) then 

write(*,*)' input i/o error, ierr= ',ierr 
stop 
end if 

pi = 4.0 * atan(l.O) 

c modify the coordinate system to graztrace coordinates 

to=o 

dzts=l . 0 
z0=0 

dzzs=l . 0 
dr0=0 
dzdrs=l . 0 

1400 write (*, ' (a, $) ' ) 'NEED MODIFY COORDINATE (Y/N)' 
read (*, ' (a) ' ) fname 
if (fname . eq. ' ' ) go to 1400 
i=l 

do while (fname ( i : i) . eq. ’ ') 

i=i+l 

end do 

if ( (fname (i:i) .eq. 'Y' ) .or. (fname (i:i) .eq. 'y f ) ) go to 1440 
if ( (fname (i:i) .eq. 'N' ) .or. (fname (i:i) .eq. 'n' ) ) go to 1480 
go to 1400 

1440 write (*,*) 'KEY IN SHIFT AND SCALE tO ts zO zs drO drs' 
read (*, *) tO, dzts, zO, dzzs, drO, dzdrs 

write (*,*) 'THETA SHIFT AND SCALE t0=',t0,' ts=',dzts 

write (*,*)'Z SHIFT AND SCALE z0=',z0,’ zs=',dzzs 

write (*,*)' DELTA RADIUS SHIFT AND SCALE dr0=',dr0,' drs=', dzdrs 
1460 write (*, ’ (a,$) ’) ' CORRECT ? (Y/N)' 
read (*, ' (a) ' ) fname 
if (fname . eq. ' ' ) go to 1460 
i=l 

do while (fname (i: i) .eq. ' ') 

i=i+l 

end do 

if ( (fname (i:i) .eq. 'Y' ) .or. (fname (i:i) .eq. 'y* ) ) go to 1480 
if { (fname (i : i) . eq. ' N' ). or . (fname (i : i) .eq. ' n ') ) go to 1440 
go to 1460 
1480 continue 
c 

c change axial length 
c 


1500 write (*, ' (a, $ ) ' ) ' CHANGE AXIAL LENGTH (990 . 6) (Y/N) ' 

read (*, ' (a) ' ) fname 
if (fname. eq. ' ' ) go to 1500 
i=l 

do while (fname (i : i) . eq. ' ') 

i=i+l 

end do 

if ( (fname (i : i) .eq. ' Y' ) .or . (fname (i: i) .eq. 'y' )) go to 1540 
if ( (fname(i:i) .eq. 'N' ) .or. (fname ( i : i ) .eq. 'n' ) ) go to 1580 
go to 1500 

1540 write (*,*) 'KEY IN AXIAL LENGTH lz' 
read {*,*)! 
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write (*,*) 'AXIAL LENGTH lz=' ,1 
1560 write (*, ' (a, $)') 'CORRECT ? (Y/N) ' 
read (*, ' (a) ' ) fname 
if (fname.eq. ’ ' )go to 1560 
i=l 

do while (fname (i : i) .eq. ' ') 

i=i+l 

end do 

if ( (fname (i : i) .eq. ' Y' ). or . (fname (i: i) .eq. 'y* )) go to 1580 
if ( (fname (i:i) .eq. 'N' ) .or. (fname (i:i) .eq. f n' ) ) go to 1540 
go to 1560 
1580 continue 

write (*,*)' transform to graztrace coordinates ' 
c 

call modify (ndim, ic, dztht, dzzval, dzdr, tO, zO, drO, dzts, dzzs, dzdrs) 
c extend the theta distribution 

angext=35 . d0*dble (pi) /180 . dO 

write (*,*)' extend distribution by ',angext,' radians' 
call extend (ndim, ierr, ic, dztht, dzzval, dzdr, angext) 
if (ierr.ne. 0) then 

write (*,*) 'error in extend, ierr= ',ierr 
stop 
end if 

c accumulate and scale the data for dsurf 
c dsurf does not like elongated triangle regions 
c between data points 

cf thcvf = delta z*dble (mt) /dble (2 . * pi) 
cf 

cf set thcvf for COSMOS/M data 
cf 

thcvf = 1 
cf 

cf write (*,*) 'angle scale factor thcvf= ', thcvf 
do jj=l,ic 

thzinp(l,jj) = dztht (jj) * thcvf 
thzinp(2,jj) = dzzval (jj) 
end do 

write (unit-*, fmt=*) ' INPUT FILE HAS ', ic, 

&' SEGMENTS OF DATA' 

open (66, f ile= ' print . dr inf ea ' ) 
do jj=l,ic 

write (66, *) j j, thzinp (1, jj) , thzinp (2, j j ) , dzdr (j j) 
end do 

c 

c 

c SET-UP REGULAR GRID TO BE INTERPOLATED ACROSS AND 
c PERFORM INTERPOLATION 

c 

dtht = pi / real (nbthseq-1 ) * 2. 

lzov2 =1/2.0 

lzintv = 1 / nbzseqml 

thll = - pi 

thul = pi 

zll = - lzov2 

zul = lzov2 

do i = 1, nbthseq 

thseq(i) = (dtht * (i - 1)) - pi 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


thseq(i) = thcvf * thseq(i) 
end do 

do i = 1, nbzseq 

zseq(i) = (lzintv * (i - 1) ) - lzov2 
end do 

etime gives elapsed job time in seconds 
(do not use system routine dtime because imsl 
package apparently has a routine of the same 
name) 

sttime = etime (tarray) 

write (unit=* , fmt=*) * BEGIN INTERPOLATION OF DATA' 

first set up workspace area with iwkin before calling dsurf 
(the size of the workspace needed was given by an error 
message the first time dsurf was called without using iwkin) 

call iwkin (1698008 ) 

call dsurf (ic, thzinp, dzdr, nbthseq, nbzseq, thseq, zseq, 
Sintdr, nbthseq) 
sttime = etime (tarray) -sttime 
write (unit=* , fmt=*) 

&' EXECUTION TIME FOR INTERPOLATION OF DATA (SECONDS) = 


OPEN OUTPUT FILE AND WRITE HEADER RECORD 


open (unit=ll , f ile=outf name (1 :osize) , status= ' NEW’ , form 
&=' UNFORMATTED' , iostat=status , err=1700) 

vax format to sun format conversion required division by 
four and byte swapping for floating point storage 

movbyt was needed for e . c . richardson output format 

(see version drin7215.vf) 

op(l) = float (nbthseq) / 4.0 

op (2) = thll / 4.0 

op (3) = thul / 4.0 

op (4) = thcvf / 4.0 

op (5) = float (nbzseq) / 4.0 

op(6) = zll / 4.0 

op (7 ) = zul / 4.0 

call bytswap(14, op) 

call movbyt (1600, msg, op (8)) 

write (unit=ll, iostat=status, err=1700) nbthseq, nbzseq, 20 
goto 1800 

1700 write (unit=*, fmt=*) ' I/O ERROR, STATUS = ', status 
stop 


WRITE INTERPOLATED RESULTS TO OUTPUT FILE 


1800 continue 


sttime 
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nn=nbzseq*nbthseq 
do i = 1, nbzseq 
do ii = 1, nbthseq 
op (ii+ (i-1) *nbthseq) = intdr(ii,i) 
c 

c these statements were required for converting from vax format 
c to sun format for floating point storage 
c 

c op(ii) = op(ii) / 4.0 

c call bytswap(2, op(ii)) 

c 

end do 
end do 

write (unit=ll, iostat=status, err=1900) (op (iii) f iii=l, nn) , 
& dble (thll) , dble (thul) , dble (zll) ,dble (zul) ,msg 
write (unit=*, fmt=*) 

& ' INTERPOLATED VALUES HAVE BEEN WRITTEN TO OUTPUT FILE' 
goto 2000 

1900 write (unit=*, fmt=*) ' I/O ERROR, STATUS = status 
stop 
c 

c 

c TERMINATE PROGRAM 

c 

2000 stop 
end 
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A6.2 rcos.f COSMOS/M Data Extraction (FORTRAN) 


c Read the data file from COSMOS/M. 

=„,„.*„*.**. ****************‘***“*“******************************** 

c routine to get COSM data 
c 

c input : 
c 

c iu 

c fname 

c ndim 

c debug 

c 

c output : 
c 

c ic 

c tht 

c zval 

c ice 

c 

c ierr 

c 
c 
c 
c 


unit to user for read 
name of input snip data file 
size of tht, zval, and dr arrays 
.true, gives debug output 


number of data values returned 
theta values in radians 

z values in mm , . . . , 

= 1 , convert from cartesien to cylmdencal 

read error (i/o error or bad data) 

1 i/o error 

3 bad data 


'.*...iT?ihih^h.S^ifi;:.it;h^h..**.**.*.*-.***.**********“ 

character * 256 ibuff, fname . 
dimension tht (ndim) , zval (ndim) , dr (ndim) 

.*****l*Si“l*S*5** ***************************************************** 

nchar=256 

ierr=0 

pi=atan (l.dO) *4 . dO 
factor=pi/180 . dO 

Il2;2..**** ...**......***... *******♦**********”*“******"******* 


c open the unit 

t***?^*** 1 "****^ 1 ”********************************************* 

c 

c get needed parameters 

200 Sad(i“ (a)\err-3000, end-3000) ibuff 
c 
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c 

c 


c 

c 

c 


c 
c 
c 
300 


if (debug) write (*,*) ibuff 

ignore blank lines 

if (ibuff .eq. ' • ) go to 200 
find deformation 

if (index (ibuff Load case').ne. 0) go to 400 
find data lines begin with "0-9" 
i=l 

do while (ibuff (i : i) . eq. ' ' ) 

i-i+1 

end do 

if ( (ibuff (i:i) . ge . 'O' ) .and. (ibuff (i:i) .l e . ’9' ) ) go to 300 

go to 200 

read in coordinate 

read (ibuff, *, err=3000) nn,xc, yc, zc 

1C=1C+1 

if (ice .eq. 1) then 
if (xc.eq.0.0) then 

if (yc.ge.0.0) then 
tht (ic) = . 5*pi 
else 

tht (ic) =1 . 5*pi 
end if 
else 

tht (ic) =atan (yc/xc) 
if (xc.lt. 0.0) tht (ic)-tht(ic)+pi 

end if C ' gt '°' 0) ' and ' (V 0 - 1 ^ 0 - 0 ) ) tht (ic)=tht (ic) +2*pi 

else 

tht (ic) =yc* factor 
end if 
zval ( ic ) =zc 
go to 200 

read (iu, 1 (a) T f err=3000, end=3000) ibuff 


if (debug) write (*,*) ibuff 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c end of coordinate data 
c 

400 continue 

read(iu, 1 (a) 1 , err=3000, end=3000) ibuff 


i=l 

do while (ibuff (i:i) .ea. f F ) 

i=i+l 

end do 

if ( (ibuff (in) . ge . ' 0 ') .and. (ibuff (i:i) .le. * 9 ') ) go to 310 


if (debug) write (*,*) ibuff 
c 

c ignore blank lines 

if (ibuff .eq. ' ') go to 400 
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i=l 

do while (ibuff (i:i) .eq. ’ ') 

i=i+l 

end do 

if ( (ibuff (i: i) .ge. ' O' ) .and. (ibuff (i:i) .le. ' 9' ) ) go to 500 


go to 400 
c 
c 

c read in deformation 
c 

500 icd=0 

510 read (ibuff err=3000) nn,xd,yd 
icd=icd+l 

if (icc .eq. 1) then 

dr (icd) =xd*dcos (tht (icd) ) +yd*dsin (tht (icd) ) 
else 

dr (icd) =xd 
end if 

if (icd.eq.ic) go to 600 
read (iu, ' (a) ',err=3000, end=3000) ibuff 
c 

if (debug) write (*,*) ibuff 
c 

i=l 

do while (ibuff (i : i) . eq. ' ') 

i=i+l 

end do 

if ( (ibuff (i:i) .ge. '0' ) .and. (ibuff (i:i) .le. '9' ) ) go to 510 
c 

c end of deformation data 
c 

600 return 

c 

c 

q***************************************************** + * + + + *** + ***** + *** 

3000 continue 
c flag i/o error 

write (*,*) ' i/o error in rcos, file= ' , fname 

ierr=l 

return 

end 
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A6.3 mas.f NASTRAN Data Extraction (FORTRAN source code) 


subroutine rnas (iu, fname, ndim, ierr, ic, tht , zval, dr, icc, debug) 


c 

c 

c 

c** 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Read the data file from NASTRAN 

****★***★******★**** + ********************+** + •, Ir*********************** 


routine to get NASTRAN data 
input: 

iu unit to user for read 

fname name of input smp data file 

ndim size of tht, zval, and dr arrays 

debug .true, gives debug output 

output : 

ic number of data values returned 

tht theta values in radians 

zval z values in mm 

icc = 1 , convert from cartesien to cylinderical 

ierr read error (i/o error or bad data) 

1 i/o error 

3 bad data 






implicit double precision (a-h,o-z) 
*****+★**********++***+**+********★*****+*******+***************** 


character * 256 ibuff, fname 
character * 4 str 

dimension tht (ndim) , zval (ndim) , dr (ndim) 
logical debug 

nchar=256 

ierr=0 

ic=0 

icd=0 

pi=atan (l.dO) *4 .dO 
factor=pi/180 .dO 


c 

c open the unit 
c 

open (iu, file=fname, err=3000) 

£***★*+**+*+** Jr**************************************** ******* ********** 

c 

c get needed parameters 
c 

200 continue 

read(iu, ' (a) ' , err=3000, end=3000) ibuff 
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if (debug) write (*,*) ibuff 


c 

c 

c 

c 

c 


iqnore blank lines 

if (ibuff . eq. ’ 1 ) go to 200 

find deformation data 

if ( index ( ibuff , 1 ENDDATA 

find data lines begin with "GRID" 

do 1 while (ibuff (i:i) .eq. 1 ' ) 
i=i+l 

end do . x onrk 

if (ibuff (i:i+3) .eq. 'GRID') go to 300 


f ) .ne. 0) go to 350 


c 
c 
c 

300 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


go to 200 

read in coordinate 

read (ibuff (55:62) , err=3000) xc 
read (ibuff (63:70) , err=3000) yc 
read (ibuff (71:78),*, err=3000 ) zc 
ic=ic+l 

if (icc .eq. 1) then 

if (xc.eq.0.0) then 

if (yc.ge.0) then 
tht (ic) = . 5*pi 
else 

tht ( ic) =1 . 5*pi 
end if 
else 

tht (ic)=atan (yc/xc) 

if (xc.lt.0) tht (ic)=tht (ic)+pi _ . 

if ( (xc.gt.0) .and. (yc.lt. 0) ) tht (ic) -tht (ic) +2 pi 

end if 
else 

tht (ic) =yc*factor 
end if 
zval (ic) =zc 

read (iu, • (a) ' , err=3000, end=3000 ) ibuff 
if (debug) write (*,*) ibuff 

do 1 while (ibuff (i:i) .eq. ' ' ) 
i=i+l 

if d (tibuff (i:i) -ge. ' O' ) .and. (ibuff (i:i) .le. ’ 9' ) ) go to 310 
go to 200 


c end of coordinate data 
c 

350 continue , , .. 

read(iu, ' (a) ' , err=3000, end=3000) ibuff 

° if (debug) write (*,*) ibuff 
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c 

c 

ignore blank lines 


c 

if (ibuff .eq. T ' ) go 

to 350 

c 

find deformation data 



if (index (ibuff, ’D I 

S PLACEMENT') 

r* 

go to 350 

400 

continue 


c 

read(iu, ' (a) * , err=3000, end=3000) ibuff 

c 

if (debug) write (*,*) 

ibuff 


c ignore blank lines 

if (ibuff .eq. ' ') go to 400 
c 
c 


•ne. 0) go to 400 


c 

c 


i=l 

do while (ibuff (i:i) 

i=i+l 

end do 

if ( (ibuff (i: i) .ge. 
'go to 500 


eg. 


•and. (ibuff (i:i) ,i e . *9' ) .and. (i.gt.l) ) 


c 

c 


go to 400 


500 


c read in deformation 
c 

read (ibuff, *,err=3000) nn,str,xd, yd 
icd=icd+l 

if (icc .eq. 1) then 

dr (icd) =xd*dcos (tht (icd) ) +yd*dsin (tht (icd) ) 
else 

dr (icd) =xd 
end if 

if (icd. eq. ic) go to 600 
go to 400 

read(iu, ' (a) ' , err=3000, end=3000) ibuff 


if (debug) write {*,*) ibuff 

i-i+1 
end do 

if ( (ibuff (i:i) . ge . '0' ) .and. (ibuff (i:i) .l e . -9') ) go to 510 


c 
c 
c 
c 
c 
c 
c 
c 

c end of deformation data 
c 

600 return 
c 

****!*********************************************** ********** 
3000 continue 

c flag i/o error 

ierr=l*'* ) ' 1/0 error in rnas ' f ile= ' , f name 

return 

end 


** ** 
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A6.4 modify .f Coordinate Modification (FORTRAN source code) 


subroutine modify (ndim, ic, tht, zval, dr, tO, zO, drO, ts, zs, drs) 

implicit double precision (a-h,o-z) 

dimension tht (ndim) , zval (ndim) , dr (ndim) 

pi=datan ( 1 . dO ) *4 . dO 

tpi=2 . dO*pi 

if (ndim. It . ic) then 

write (*,*) ' ndim too small in modify, stop' 
stop 
end if 

if(ic.lt.l) then 

write (*,*)' ic is zero or less in modify, stop' 
stop 
endif 
do i=l,ic 

zval (i) = (zval (i) -zO) *zs 
dr (i)= (dr (i) -drO) *drs 
tht (i) = (tht (i) -tO) *ts 

c make sure that theta values are within [-pi,+pi] 

100 continue 

if (tht (i) .ge. -pi. and. tht (i) .le.pi) go to 101 
if (tht (i ) . It . -pi ) then 
tht (i) =tht (i) +tpi 
else 

tht (i) =tht (i) -tpi 
endif 
go to 100 

101 continue 
end do 
return 
end 
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A6.5 extend.f Data Extend (FORTRAN source code) 


subroutine extend (ndim, ierr, ic, tht, zval, dr, angext ) 
c 

c extend the angular distribution above pi and below -pi 
c by angext 
c 

c i.e. wrap the distribution around 
c 

implicit double precision (a-h,o-z) 
dimension tht (ndim) , zval (ndim) , dr (ndim) 
pi=datan (1 . dO) *4 . dO 
ierr=0 

if (ic . gt . ndim) go to 3000 
if(ic.lt.l) go to 3000 
icc=ic 
do i=l,ic 

if ( (pi-tht(i) ) .It. angext) then 
icc=icc+l 

if (icc.gt.ndim) go to 3000 
tht (icc) =tht (i) -2 .d0*pi 
zval (icc) =zval (i) 
dr (icc) =dr (i) 
endif 

if ( (tht (i) +pi) . It . angext ) then 
icc=icc+l 

if (icc.gt.ndim) go to 3000 
tht (icc) =tht (i) +2 . d0*pi 
zval (icc) =zval (i) 
dr (icc) =dr (i) 
endif 
end do 
ic=icc 
return 

3000 continue 
ierr=l 
return 
end 
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A6.6 sxccos.lis Sample COSMOS/M data format (outputed by COSMOS/M) 


Node 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


X-Coordinate 
0 . 000000e+00 
-1.326702e+00 
-1.320659e+00 
0 . 000000e+00 
-1 . 314588e+00 
0 . 000000e+00 
-1 . 308489e+00 
0 . 000000e+00 
-1 . 302361e+00 
0 . 000000e+00 
-1 . 283880e+00 
0 . 000000e+00 
-1 . 265369e+00 
0 . 000000e+00 
-1 . 246770e+00 
0 . 000000e+00 
-1 . 228248e+00 
0 . 000000e+00 
1 . 320659e+00 
1 . 326702e+00 
1 . 314588e+00 
1 . 308489e+00 
1 . 302361e+00 
1 . 283880e+00 
1 . 265369e+00 
1 . 246770e+00 


27 

1 . 228248e+00 

28 

-2 . 601190e+00 

29 

-2 . 613092e+00 

30 

-2 . 589232e+00 

31 

-2 . 577221e+00 

32 

-2 . 565151e+00 

33 

-2 . 528750e+00 

34 

-2 . 492290e+00 

35 

-2 . 455657e+00 

36 

-2 . 419177e+00 

37 

-3 . 802685e+00 

38 

-3 . 820085e+00 

39 

-3 . 785205e+00 

40 

-3 . 7 67 645e+00 

41 

-3 . 750000e+00 

42 

-3 . 696785e+00 

43 

-3 . 643485e+00 

44 

-3 . 58 9930e+00 

45 

-3 . 536600e+00 

46 

2 . 613092e+00 

47 

2 . 601190e+00 

48 

2 . 58 9232e+00 

49 

2 . 577221e+00 

50 

2 . 565151e+00 

51 

2 . 528750e+00 


Coordinate system 0 
Y-Coordinate 
7 . 640170e+00 
7 . 524099e+00 
7 . 489827e+00 
7 . 605370e+00 
7 . 455398e+00 
7 . 570410e+00 
7 . 420812e+00 
7 . 535290e+00 
7 . 386058e+00 
7 . 500000e+00 
7 . 281245e+00 
7 . 393570e+00 
7 . 176265e+00 
7 . 286970e+00 
7 . 070782e+00 
7 . 179860e+00 
6 . 965743e+00 
7 . 073200e+00 
7 . 489827e+00 
7 . 524099e+00 
7 . 455398e+00 
7 . 420812e+00 
7 . 386058e+00 
7 . 281245e+00 
7 . 176265e+00 
7 . 070782e+00 
6. 965743e+00 
7 . 146710e+00 
7 . 179411e+00 
7 . 113858e+00 
7 . 080856e+00 
7 . 047695e+00 
6 . 947683e+00 
6 . 847512e+00 
6 . 746861e+00 
6 . 646634e+00 
6 . 586443e+00 
6. 616581e+00 
6 . 556167e+00 
6 . 525752e+00 
6 . 495191e+00 
6 . 403020e+00 
6 . 310701e+00 
6 . 217941e+00 
6 . 125571e+00 
7 . 179411e+00 
7 . 146710e+00 
7 . 113858e+00 
7 . 080856e+00 
7 . 047695e+00 
6. 947683e+00 


(Cartesian) 

Z-Coordinate 
-4 . 925000e+00 
-4 . 925000e+00 
-3. 693750e+00 
-3. 693750e+00 
-2 . 4 62500e+00 
-2 . 462500e+00 
-1 . 231250e+00 
-1 . 231250e+00 
0 . 000000e+00 
0 . 000000e+00 
1 . 231250e+00 
1 . 231250e+00 
2 . 462500e+00 
2 . 462500e+00 
3. 693750e+00 
3 . 693750e+00 
4 . 925000e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
-1 . 231250e+00 
0 . 000000e+00 
1 . 231250e+00 
2 . 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-3. 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
-1 . 231250e+00 
0 . 000000e+00 
1 . 231250e+00 
2 . 462500e+00 
3. 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 4 62500e+00 
-1 . 231250e+00 
0 . 000000e+00 
1 . 231250e+00 
2 . 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-4 . 925000e+00 
-3. 693750e+00 
-2 . 462500e+00 
-1 . 231250e+00 
0 . 000000e+00 
1 . 231250e+00 
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52 

2 . 492290e+00 

53 

2 . 455657e+00 

54 

2 . 419177e+00 

55 

3 . 802685e+00 

56 

3. 820085e+00 

57 

3 . 785205e+00 

58 

3 . 7 67 645e+00 

59 

3 . 750000e+00 

60 

3 . 696785e+00 

61 

3. 643485e+00 

62 

3 . 589930e+00 

63 

3 . 536600e+00 

64 

-4 . 888638e+00 

65 

-4 . 911006e+00 

66 

-4 . 866165e+00 

67 

-4 . 843591e+00 

68 

-4.820907e+00 

69 

-4 . 752495e+00 

70 

-4 . 683974e+00 

71 

-4 . 615125e+00 

72 

-4 . 54 6566e+00 

73 

-5 . 826051e+00 

74 

-5.852710e+00 

75 

-5 . 799270e+00 

76 

-5 . 772367e+00 

77 

-5 . 745333e+00 

78 

-5. 663803e+00 

79 

-5 . 582143e+00 

80 

-5 . 500092e+00 

81 

-5. 418386e+00 

82 

4 . 911006e+00 

83 

4 . 888638e+00 

84 

4 . 866165e+00 

85 

4 . 843591e+00 

86 

4 . 820907e+00 

87 

4 . 7 524 95e+00 

88 

4 . 683974e+00 

89 

4 . 615125e+00 

90 

4 . 546566e+00 

91 

5 . 826051e+00 

92 

5 . 852710e+00 

93 

5 . 799270e+00 

94 

5 . 772367e+00 

95 

5 . 745333e+00 

96 

5. 663803e+00 

97 

5 . 582143e+00 

98 

5. 500092e+00 

99 

5. 418386e+00 

100 

-6 . 586443e+00 

101 

-6.616581e+00 

102 

-6 . 556167e+00 

103 

-6 . 525752e+00 

104 

-6 . 495191e+00 

105 

-6. 403019e+00 

106 

-6 . 310701e+00 

107 

-6 . 217941e+00 

108 

-6 . 125571e+00 

109 

-7 . 146710e+00 

110 

-7 . 179411e+00 
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6 . 847512e+00 
6. 746861e+00 
6 . 646634e+00 
6. 586443e+00 
6. 616581e+00 
6 . 556167e+00 
6 . 525752e+00 
6. 495191e+00 
6. 403020e+00 
6. 310701e+00 
6. 217941e+00 
6. 125571e+00 
5 . 826051e+00 
5 . 852710e+00 
5. 799271e+00 
5 . 772367e+00 
5 . 745333e+00 
5 . 663804e+00 
5 . 582143e+00 
5. 500092e+00 
5. 418386e+00 
4 . 888638e+00 
4 . 911007e+00 
4 . 866166e+00 
4 . 843591e+00 
4 . 820907e+00 
4 . 752496e+00 
4 . 683974e+00 
4. 615125e+00 
4 . 546566e+00 
5 . 852710e+00 
5 . 826051e+00 
5 . 799271e+00 
5. 772367e+00 
5. 745333e+00 
5 . 663804e+00 
5. 582143e+00 
5 . 500092e+00 
5 . 418386e+00 
4 . 888638e+00 
4 . 911007e+00 
4 . 866166e+00 
4 . 843591e+00 
4 . 820907e+00 
4 . 752496e+00 
4. 683974e+00 
4. 615125e+00 
4 . 546566e+00 
3 . 802685e+00 
3. 820085e+00 
3 . 785205e+00 
3.767645e+00 
3 . 750000e+00 
3. 696785e+00 
3 . 643485e+00 
3 . 589930e+00 
3 . 536600e+00 
2 . 601190e+00 
2 . 613092e+00 


Structural Analysis Interf 

2. 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-3. 693750e+00 
-4 . 925000e+00 
-2 . 4 62500e+00 
-1.231250e+00 
0. 000000e+00 
1.231250e+00 
2 . 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 4 62500e+00 
-1.231250e+00 
0. 000000e+00 
1.231250e+00 
2 . 462500e+00 
3. 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 4 62500e+00 
-1 .231250e+00 
0 . 000000e+00 
1 . 231250e+00 
2 . 462500e+00 
3. 693750e+00 
4 . 925000e+00 
-4 . 925000e+00 
-3 . 693750e+00 
-2 . 462500e+00 
-1.231250e+00 
0. 000000e+00 
1 . 231250e+00 
2 . 4 62500e+00 
3. 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2. 462500e+00 
-1 . 231250e+00 
0. 000000e+00 
1 . 231250e+00 
2 . 462500e+00 
3. 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
-1.231250e+00 
0 . 000000e+00 
1 . 231250e+00 
2 . 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
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111 

112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 
169 


-7 . 113858e+00 
-7 . 080856e+00 
-7 . 047695e+00 
-6 . 947683e+00 
-6 . 847512e+00 
-6 . 746861e+00 
-6 . 64 6634e+00 
6 . 616581e+00 
6 . 586443e+00 
6 . 556167e+00 
6. 525752e+00 
6 . 495191e+00 
6. 403019e+00 
6. 310701e+00 
6 . 217 941e+00 
6 . 125571e+00 
7 . 146710e+00 
7 . 179411e+00 
7 . 113858e+00 
7 . 080856e+00 
7 . 047 695e+00 
6. 947683e+00 
6 . 847512e+00 
6 . 746861e+00 
6. 646634e+00 
-7 . 489827e+00 
-7 . 524098e+00 
-7 . 455398e+00 
-7 . 420812e+00 
-7 . 386058e+00 
-7 . 281245e+00 
-7 . 17 6265e+00 
-7 . 070782e+00 
-6 . 965743e+00 
-7 . 605370e+00 
-7 . 640170e+00 
-7 . 570410e+00 
-7 . 535289e+00 
-7 . 500000e+00 
-7 . 393570e+00 
-7 . 286970e+00 
-7 . 17 9860e+00 
-7 . 073200e+00 
7 . 524098e+00 
7 . 489827e+00 
7 . 455398e+00 
7 . 420812e+00 
7 . 386058e+00 
7 . 281245e+00 
7 . 17 6265e+00 
7 . 070782e+00 
6 . 965743e+00 
7 . 605370e+00 
7 . 640170e+00 
7 . 570410e+00 
7 . 535289e+00 
7 . 500000e+00 
7 . 393570e+00 
7 . 286970e+00 
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2 . 589233e+00 

-2 . 462500e+00 

2 . 577221e+00 

-1 . 231250e+00 

2 . 565151e+00 

0 . 000000e+00 

2 . 528750e+00 

1.231250e+00 

2 . 492291e+00 

2 . 462500e+00 

2 . 455657e+00 

3. 693750e+00 

2 . 419177e+00 

4 . 925000e+00 

3 . 820085e+00 

-4 . 925000e+00 

3 . 802685e+00 

-3. 693750e+00 

3 . 785205e+00 

-2 . 462500e+00 

3 . 767645e+00 

-1 . 231250e+00 

3 . 750000e+00 

0 . 000000e+00 

3. 696785e+00 

1.231250e+00 

3 . 643485e+00 

2 . 462500e+00 

3 . 589930e+00 

3. 693750e+00 

3 . 536600e+00 

4 . 925000e+00 

2 . 601190e+00 

-3.693750e+00 

2 . 613092e+00 

-4 . 925000e+00 

2 . 589233e+00 

-2 . 462500e+00 

2 . 577221e+00 

-1 . 231250e+00 

2 . 565151e+00 

0 . 000000e+00 

2 . 528750e+00 

1 . 231250e+00 

2 . 4 92291e+00 

2 . 462500e+00 

2 . 455657e+00 

3 . 693750e+00 

2 . 419177e+00 

4 . 925000e+00 

1 . 320659e+00 

-3. 693750e+00 

1 . 326702e+00 

-4 . 925000e+00 

1 . 314589e+00 

-2 . 462500e+00 

1 . 308490e+00 

-1 . 231250e+00 

1.302361e+00 

0 . 000000e+00 

1 . 283881e+00 

1 . 231250e+00 

1 . 265369e+00 

2 . 462500e+00 

1.246770e+00 

3 . 693750e+00 

1.228249e+00 

4 . 925000e+00 

2 . 353971e-07 

-3 . 693750e+00 

4 . 245420e-07 

-4 . 925000e+00 

3 . 377823e-07 

-2 . 4 62500e+00 

2 . 226650e-07 

-1 . 231250e+00 

1 . 980977e-07 

0 . 000000e+00 

5 . 344057e-07 

1.231250e+00 

3 . 303264e-07 

2 . 462500e+00 

4 . 802638e-07 

3. 693750e+00 

3 . 140545e-07 

4 . 925000e+00 

1 . 326702e+00 

-4 . 925000e+00 

1.320659e+00 

-3. 693750e+00 

1.314589e+00 

-2 . 4 62500e+00 

1 . 308490e+00 

-1.231250e+00 

1.302361e+00 

0 . 000000e+00 

1 . 283881e+00 

1.231250e+00 

1 . 265369e+00 

2 . 462500e+00 

1 . 246770e+00 

3 . 693750e+00 

1 . 228249e+00 

4 . 925000e+00 

2 . 353971e-07 

-3 . 693750e+00 

4 . 245420e-07 

-4 . 925000e+00 

3 . 377823e-07 

-2 . 462500e+00 

2.226650e-07 

-1 . 231250e+00 

1 . 980977e-07 

0 . 000000e+00 

5 . 34 4057e-07 

1 .231250e+00 

3 . 303264e-07 

2 . 462500e+00 
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170 

7 . 179860e+00 

171 

7 . 073200e+00 

172 

0 . 000000e+00 

173 

0 . 000000e+00 

174 

-1.320659e+00 

175 

-1.326702e+00 

176 

0. 000000e+00 

177 

-1 . 314588e+00 

178 

0. 000000e+00 

179 

-1.308489e+00 

180 

0. 000000e+00 

181 

-1.302361e+00 

182 

0. 000000e+00 

183 

-1 . 283880e+00 

184 

0. 000000e+00 

185 

-1 . 2 65369e+00 

186 

0. 000000e+00 

187 

-1 . 246770e+00 

188 

0. 000000e+00 

189 

-1 . 22824 8e+00 

190 

1.320659e+00 

191 

1 . 326702e+00 

192 

1 . 314588e+00 

193 

1 . 308489e+00 

194 

1.302361e+00 

195 

1 . 283880e+00 

196 

1 . 265369e+00 

197 

1.246770e+00 

198 

1 . 228248e+00 

199 

-2. 613092e+00 

200 

-2 . 601190e+00 

201 

-2 . 589232e+00 

202 

-2 . 577221e+00 

203 

-2 . 565151e+00 

204 

-2 . 528750e+00 

205 

-2. 492290e+00 

206 

-2 . 455657e+00 

207 

-2 . 419177e+00 

208 

-3.802 685e+00 

209 

-3 . 820085e+00 

210 

-3. 785205e+00 

211 

-3.767 64 5e+00 

212 

-3. 750000e+00 

213 

-3. 696785e+00 

214 

-3 . 643485e+00 

215 

-3 . 589930e+00 

216 

-3 . 536600e+00 

217 

2. 601190e+00 

218 

2. 613092e+00 

219 

2 . 589232e+00 

220 

2 . 577221e+00 

221 

2 . 565151e+00 

222 

2 . 528750e+00 

223 

2 . 492290e+00 

224 

2 . 455657e+00 

225 

2 . 419177e+00 

226 

3 . 802 685e+00 

227 

3. 820085e+00 

228 

3 . 785205e+00 
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4 . 802638e-07 

3 . 140545e-07 
-7 . 605370e+00 
-7 . 640170e+00 
-7 . 489827e+00 
-7 . 524099e+00 
-7 . 570410e+00 
-7 . 455398e+00 
-7 . 535290e+00 
-7 . 420812e+00 
-7 . 500000e+00 
-7 . 386058e+00 
-7.393570e+00 
-7 . 281245e+00 
-7 . 286970e+00 
-7 . 176265e+00 
-7 . 179860e+00 
-7 . 070782e+00 
-7 . 073200e+00 
-6. 965743e+00 
-7 . 489827e+00 
-7 . 524099e+00 
-7 . 455398e+00 
-7 . 420812e+00 
-7 . 386058e+00 
-7 . 281245e+00 
-7 . 176265e+00 
-7 . 070782e+00 
-6. 965743e+00 
-7 . 179411e+00 
-7 . 146710e+00 
-7 . 113858e+00 
-7 . 080856e+00 
-7 . 047695e+00 
-6. 947683e+00 
-6 . 847512e+00 
-6 . 746861e+00 
-6 . 64 6634e+00 
-6 . 586443e+00 
-6 . 616581e+00 
-6. 556167e+00 
-6. 525752e+00 
-6 . 495191e+00 
-6. 403020e+00 
-6 . 310701e+00 
-6. 217941e+00 
-6. 125571e+00 
-7 . 146710e+00 
-7 . 179411e+00 
-7 . 113858e+00 
-7 . 080856e+00 
-7 . 047695e+00 
-6. 947683e+00 
-6 . 847512e+00 
-6. 746861e+00 
-6. 646634e+00 
-6 . 586443e+00 
-6 . 616581e+00 
-6 . 556167e+00 


Structural Analysis In 

3 . 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
-2 . 462500e+00 
-1.231250e+00 
-1. 231250e+00 
0. 000000e+00 
0 . 000000e+00 
1 . 231250e+00 
1.231250e+00 
2 . 462500e+00 
2 . 462500e+00 
3. 693750e+00 
3 . 693750e+00 
4 . 925000e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
-1.231250e+00 
0 . 000000e+00 
1.231250e+00 
2 . 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-4 . 925000e+00 
-3. 693750e+00 
-2 . 462500e+00 
-1 . 231250e+00 
0. 000000e+00 
1.231250e+00 
2 . 4 62500e+00 
3 . 693750e+00 
4 . 925000e+00 
-3 . 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
-1 . 231250e+00 
0. 000000e+00 
1.231250e+00 
2. 462500e+00 
3. 693750e+00 
4 . 925000e+00 
-3. 693750e+00 
-4. 925000e+00 
-2 . 462500e+00 
-1.231250e+00 
0 . 000000e+00 
1 . 231250e+00 
2. 462500e+00 
3 . 693750e+00 
4 . 925000e+00 
-3. 693750e+00 
-4 . 925000e+00 
-2 . 462500e+00 
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229 

3.767 645e+00 

-6 . 525752e+00 

-1.231250e+00 

230 

3 . 750000e+00 

-6. 495191e+00 

0 . 000000e+00 

231 

3. 696785e+00 

-6 . 403020e+00 

1.231250e+00 

232 

3 . 643485e+00 

-6 . 310701e+00 

2 . 462500e+00 

233 

3 . 589930e+00 

-6 . 217941e+00 

3 . 693750e+00 

234 

3 . 536600e+00 

-6 . 125571e+00 

4 . 925000e+00 

235 

-4 . 911006e+00 

-5 . 852710e+00 

-4 . 925000e+00 

236 

-4 . 888638e+00 

-5 . 826051e+00 

-3. 693750e+00 

237 

-4 . 866165e+00 

-5 . 799271e+00 

-2 . 4 62500e+00 

238 

-4 . 843591e+00 

-5 . 772367e+00 

-1.231250e+00 

239 

-4 . 820907e+00 

-5.745333e+00 

0 . 000000e+00 

240 

-4 . 752495e+00 

-5.663804e+00 

1.231250e+00 

241 

-4 . 683974e+00 

-5 . 582143e+00 

2 . 4 62500e+00 

242 

-4 . 615125e+00 

-5 . 500092e+00 

3. 693750e+00 

243 

-4 . 54 6566e+00 

-5 . 418386e+00 

4 . 925000e+00 

244 

-5 . 826051e+00 

-4 . 888638e+00 

-3 . 693750e+00 

245 

-5 . 852710e+00 

-4 . 911007e+00 

-4 . 925000e+00 

246 

-5 . 799270e+00 

-4 . 866166e+00 

-2 . 4 62500e+00 

247 

-5 . 772367e+00 

-4 . 843591e+00 

-1.231250e+00 

248 

-5 . 7 45333e+00 

-4 . 820907e+00 

0 . 000000e+00 

249 

-5. 663803e+00 

-4 . 752496e+00 

1 . 231250e+00 

250 

-5 . 582143e+00 

-4 . 683974e+00 

2 . 4 62500e+00 

251 

-5 . 500092e+00 

-4 . 615125e+00 

3. 693750e+00 

252 

-5 . 418386e+00 

-4 . 546566e+00 

4 . 925000e+00 

253 

4 . 888638e+00 

-5 . 826051e+00 

-3 . 693750e+00 

254 

4 . 911006e+00 

-5 . 852710e+00 

-4 . 925000e+00 

255 

4 . 866165e+00 

-5.799271e+00 

-2 . 462500e+00 

256 

4 . 843591e+00 

-5 . 772367e+00 

-1 . 231250e+00 

257 

4 . 820907e+00 

-5 . 745333e+00 

0 . 000000e+00 

258 

4 . 7524 95e+00 

-5. 663804e+00 

1.231250e+00 

259 

4 . 683974e+00 

-5 . 582143e+00 

2 . 462500e+00 

260 

4 . 615125e+00 

-5 . 500092e+00 

3. 693750e+00 

261 

4 . 546566e+00 

-5 . 418386e+00 

4 . 925000e+00 

262 

5 . 826051e+00 

-4 . 888638e+00 

-3. 693750e+00 

263 

5 . 852710e+00 

-4 . 911007e+00 

-4 . 925000e+00 

264 

5 . 799270e+00 

-4 . 866166e+00 

-2 . 4 62500e+00 

265 

5 . 772367e+00 

-4 . 843591e+00 

-1.231250e+00 

266 

5 . 745333e+00 

-4 . 820907e+00 

0 . 000000e+00 

267 

5. 663803e+00 

-4 . 752496e+00 

1 . 231250e+00 

268 

5 . 582143e+00 

-4 . 683974e+00 

2 . 462500e+00 

269 

5 . 500092e+00 

-4 . 615125e+00 

3 . 693750e+00 

270 

5 . 418386e+00 

-4 . 546566e+00 

4 . 925000e+00 

271 

-6. 616581e+00 

-3 . 820085e+00 

-4 . 925000e+00 

272 

-6 . 586443e+00 

-3 . 802685e+00 

-3 . 693750e+00 

273 

-6 . 556167e+00 

-3 . 785205e+00 

-2 . 4 62500e+00 

274 

-6 . 525752e+00 

-3. 767645e+00 

-1 . 231250e+00 

275 

-6 . 4 95191e+00 

-3 . 750000e+00 

0 . 000000e+00 

276 

-6 . 403019e+00 

-3 . 696785e+00 

1 . 231250e+00 

277 

-6 . 310701e+00 

-3 . 643485e+00 

2 . 4 62500e+00 

278 

-6 . 217941e+00 

-3 . 589930e+00 

3 . 693750e+00 

279 

-6. 125571e+00 

-3 . 536600e+00 

4 . 925000e+00 

280 

-7 . 14 6710e+00 

-2 . 601190e+00 

-3 . 693750e+00 

281 

-7 . 179411e+00 

-2 . 613092e+00 

-4 . 925000e+00 

282 

-7 . 113858e+00 

-2 . 589233e+00 

-2 . 4 62500e+00 

283 

-7 . 080856e+00 

-2 . 577221e+00 

-1.231250e+00 

284 

-7 . 047695e+00 

-2 . 565151e+00 

0 . 000000e+00 

285 

-6.947683e+00 

-2 . 528750e+00 

1 . 231250e+00 

286 

-6 . 847512e+00 

-2 . 4 92291e+00 

2 . 462500e+00 

287 

- 6.746861e+00 

-2 . 455657e+00 

3. 693750e+00 
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288 

-6 . 646634e+00 

-2 . 419177e+00 

4 . 925000e+00 

289 

6 . 586443e+00 

-3 . 802685e+00 

-3 . 693750e+00 

290 

6 . 616581e+00 

-3 . 820085e+00 

-4 . 925000e+00 

291 

6 . 556167e+00 

-3 . 785205e+00 

-2 . 4 62500e+00 

292 

6 . 525752e+00 

-3 . 767645e+00 

-1.231250e+00 

293 

6 . 495191e+00 

-3 . 750000e+00 

0 . 000000e+00 

294 

6 . 403019e+00 

-3 . 696785e+00 

1.231250e+00 

295 

6. 310701e+00 

-3 . 643485e+00 

2 . 462500e+00 

296 

6. 217941e+00 

-3 . 589930e+00 

3 . 693750e+00 

297 

6 . 125571e+00 

-3 . 536600e+00 

4 . 925000e+00 

298 

7 . 146710e+00 

-2 . 601190e+00 

-3. 693750e+00 

299 

7 . 179411e+00 

-2 . 613092e+00 

-4 . 925000e+00 

300 

7 . 113858e+00 

-2 . 589233e+00 

-2 . 462500e+00 

301 

7 . 080856e+00 

-2 . 577221e+00 

-1.231250e+00 

302 

7 . 047695e+00 

-2 . 565151e+00 

0 . 000000e+00 

303 

6. 947683e+00 

-2 . 528750e+00 

1.231250e+00 

304 

6 . 847512e+00 

-2 . 492291e+00 

2 . 462500e+00 

305 

6 . 746861e+00 

-2 . 455657e+00 

3. 693750e+00 

306 

6. 646634e+00 

-2 . 419177e+00 

4. 925000e+00 

307 

-7 . 524098e+00 

-1 . 326702e+00 

-4 . 925000e+00 

308 

-7 . 489827e+00 

-1 . 320659e+00 

-3. 693750e+00 

309 

-7 . 455398e+00 

-1 . 314589e+00 

-2 . 462500e+00 

310 

-7 . 420812e+00 

-1.308490e+00 

-1 . 231250e+00 

311 

-7 . 386058e+00 

-1 . 302361e+00 

0 . 000000e+00 

312 

-7 . 281245e+00 

-1.283881e+00 

1 . 231250e+00 

313 

-7 . 176265e+00 

-1 . 265369e+00 

2 . 462500e+00 

314 

-7 . 070782e+00 

-1.246770e+00 

3. 693750e+00 

315 

-6 . 965743e+00 

-1.228249e+00 

4 . 925000e+00 

316 

7 . 489827e+00 

-1.320659e+00 

-3 . 693750e+00 

317 

7 . 524098e+00 

-1 . 326702e+00 

-4 . 925000e+00 

318 

7 . 455398e+00 

-1 . 314589e+00 

-2 . 462500e+00 

319 

7 . 420812e+00 

-1 . 308490e+00 

-1.231250e+00 

320 

7 . 386058e+00 

-1.302361e+00 

0 . 000000e+00 

321 

7 . 281245e+00 

-1.283881e+00 

1 . 231250e+00 

322 

7 . 17 6265e+00 

-1 . 265369e+00 

2 . 462500e+00 

323 

7 . 070782e+00 

-1.246770e+00 

3 . 693750e+00 

324 

6. 965743e+00 

-1 . 228249e+00 

4 . 925000e+00 





Load case 

1 



Node 

UX 

UY 

UZ 

RX 

RY 

RZ 

1 

2 . 144e-20 

-1.836e-06 

-1 . 486e-07 

-3 . 109e-07 

-3 . 555e-21 

2 . 159e-2 

2 

2 . 673e-08 

-1.602e-06 

-1 . 256e-07 

-2 . 251e-07 

-1 . 233e-08 

-2 . 576e-0 

3 

2 . 7 93e-08 

-1 . 479e-06 

-1 . 050e-07 

-5 . 408e-08 

1 . 558e-08 

-1 . 512e-0 

4 

1.614e-20 

-1.568e-06 

-1 . 264e-07 

-1 . 868e-07 

-3 . 325e-21 

1 . 572e-2 

5 

4 . 712e-08 
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8 . 301e-07 
2 . 867e-13 
4 . 334e-13 
4 . 581e-13 
3 . 471e-13 
3 . I58e-13 
7 . 730e-13 
3 . 894e-13 
4 . 299e-13 
2 . 008e-13 
-1 . 046e-06 
-1 . 169e-06 
-1 . 422e-06 
-1 . 677e-06 
-1 . 755e-06 
-1 . 612e-06 
-1 . 292e-06 
-9. 951e-07 
-8 . 301e-07 
-2 . 867e-13 
-4 . 334e-13 
-4 . 581e-13 
-3 . 471e-13 
-3 . 158e-13 
-7 . 730e-13 
-3 . 894e-13 
-4 . 299e-13 
-2 . 008e-13 
1 . 229e-20 
1. 643e-20 
-2 . 793e-08 
-2. 673e-08 
8 . 094e-21 
-4 . 712e-08 
3.841e-21 
-7 . 190e-08 
0 . 000e+00 
-7 . 475e-08 
-4 . 115e-21 
-6.703e-08 
-8 . 255e-21 
-4 . 639e-08 
-1 . 206e-20 
-2 . 772e-08 
-1 . 599e-20 
-3 . 183e-08 
2 . 793e-08 
2.673e-08 
4 . 712e-08 
7 . 190e-08 
7 . 475e-08 
6.703e-08 
4. 639e-08 
2 . 772e-08 


-1 . 105e-06 
-1 . 051e-06 
-1 . 068e-06 
-1 . 051e-06 
-1 . 021e-06 
-9. 924e-07 
-1 . 015e-06 
-1 . 015e-06 
-1 . 000e-06 
-9 . 706e-07 
-9. 122e-07 
-9 . 37 9e-07 
-9 . 440e-07 
-9. 364e-07 
-9. 147e-07 
-1. 114e-06 
-1 . 117e-06 
-1 . 120e-06 
-1 . 105e-06 
-1 . 051e-06 
-1 . 068e-06 
-1 . 051e-06 
-1 . 021e-06 
-9 . 924e-07 
-1 . 015e-06 
-1 . 015e-06 
-1.000e-06 
-9.706e-07 
-9 . 122e-07 
-9.37 9e-07 
-9. 440e-07 
-9 . 364e-07 
-9 . 147e-07 
-1.568e-06 
-1 . 836e-06 
-1 . 479e-06 
-1 . 602e-06 
-1 . 316e-06 
-1 . 400e-06 
-8 . 148e-07 
-1 . 269e-06 
0 . 000e+00 
-1 . 102e-06 
- 7.374e-07 
-1 . 181e-06 
-1 . 208e-06 
-1.297e-06 
-1 . 399e-06 
-1 . 343e-06 
-1 . 569e-06 
-1 . 463e-06 
-1 . 479e-06 
-1. 602e-06 
-1 . 400e-06 
-1 . 269e-06 
-1 . 102e-06 
-1 . 181e-06 
-1 . 297e-06 
-1 . 343e-06 


-5 . 975e-08 
-1 . 173e-07 
-1 . 478e-07 
-1 . 413e-07 
-1 . 202e-07 
-1 . 021e-07 
-9 . 003e-15 
-1 . 040e-14 
-1. 411e-14 
-1 . 816e-14 
-2 . 7 47e-14 
-7 . 750e-14 
-4 . 995e-14 
-6 . 034e-14 
-3 . 393e-14 
-1 . 949e-08 
-1. 912e-08 
-2.952e-08 
-5 . 975e-08 
-1 . 173e-07 
-1 . 478e-07 
-1.413e-07 
-1.202e-07 
-1 . 021e-07 
-9 . 003e-15 
-1 . 040e-14 
-1 . 411e-14 
-1 . 816e-14 
-2 . 747e-14 
-7 . 750e-14 
-4 . 995e-14 
-6 . 034e-14 
-3 . 393e-14 
1 . 264e-07 
1 . 486e-07 
1 . 050e-07 
1.256e-07 
1 . 038e-07 
9 . 085e-08 
6 . 738e-08 
7 . 287e-08 
0. 000e+00 
5. 644e-08 
9.247e-09 
5 . 859e-08 
3 . 17 6e-08 
5 . 338e-08 
3 . 717e-08 
4 . 188e-08 
3 . 654e-08 
3 . 701e-08 
1 . 050e-07 
1 . 256e-07 
9 . 085e-08 
7 . 287e-08 
5 . 644e-08 
5.859e-08 
5 . 338e-08 
4 . 188e-08 


-1 . 638e-08 
-7 . 583e-08 
-1 . 317e-07 
-1 . 423e-07 
-1 . 239e-07 
-9 . 263e-08 
-3 . 552e-08 
-3 . 142e-08 
-4 . 381e-08 
-6 . 773e-08 
-1 . 262e-07 
-1 . 852e-07 
-1 . 837e-07 
-1 . 564e-07 
-1 . 421e-07 
-3 . 702e-08 
-9.715e-09 
1 . 398e-09 
-1 . 638e-08 
-7 . 583e-08 
-1 . 317e-07 
-1 . 423e-07 
-1 . 239e-07 
-9 . 263e-08 
-3 . 552e-08 
-3 . 142e-08 
-4 . 381e-08 
-6.773e-08 
-1 . 262e-07 
-1 . 852e-07 
-1 . 837e-07 
-1 . 564e-07 
-1 . 421e-07 
-1 . 868e-07 
-3 . 109e-07 
-5 . 408e-08 
-2 . 251e-07 
-2 . 916e-07 
-7 . 225e-08 
-6.364e-07 
-9 . 367e-08 
0 . 000e+00 
-6 . 073e-08 
5 . 525e-07 
1 . 287e-07 
2 . 341e-07 
4 . 168e-08 
1 . 033e-07 
3 . 732e-08 
2 . 613e-07 
1 . 868e-07 
-5 . 408e-08 
-2 . 251e-07 
-7 . 225e-08 
-9 . 367e-08 
-6. 073e-08 
1 . 287e-07 
4 . 168e-08 
3 . 732e-08 


1 . 108e-07 
-1 . 618e-08 
-1.634e-07 
-2 . 542e-07 
-1 . 915e-07 
-4 . 548e-08 
3 . 983e-14 
1 . 553e-14 
5 . 357e-14 
2 . 191e-14 
1 . 064e-14 
-6. 940e-14 
-6 . 662e-14 
-1 . 117e-13 
-5 . 540e-14 
-1 . 535e-08 
-1 . 627e-07 
-2 . 118e-07 
-1 . 108e-07 
1.618e-08 
1 . 634e-07 
2 . 542e-07 
1 . 915e-07 
4 . 548e-08 
-3 . 983e-14 
-1 . 553e-14 
-5 . 357e-14 
-2 . 191e-14 
-1 . 064e-14 
6. 940e-14 
6 . 662e-l 4 
1 . 117e-13 
5 . 540e-14 
-3 . 407e-21 
-3 . 578e-21 
-1 . 558e-08 
1 . 233e-08 
-2 . 896e-21 
-7 . 88 4e-0 9 
-1. 929e-21 
1 . 247e-08 
0 . 000e+00 
6 . 046e-08 
-1. 660e-21 
2 . 908e-08 
-1 . 822e-21 
2 . 345e-08 
-1 . 626e-21 
-1 . 141e-09 
-1 . 337e-21 
-4 . 198e-08 
1 . 558e-08 
-1 . 233e-08 
7 . 884e-09 
-1 . 247e-08 
-6 . 04 6e-08 
-2 . 908e-08 
-2 . 345e-08 
1 . 141e-09 


-7 . 966e-07 
-8 . 003e-07 
-7 . 240e-07 
-5 . 955e-07 
-4 . 955e-07 
-4 . 17 6e-07 
-1 . 030e-06 
-8 . 488e-07 
-1 . 267e-06 
-1 . 495e-06 
-1 . 556e-06 
-1 . 502e-06 
-1 . 232e-06 
-9 . 567e-07 
-8 . 420e-07 
5.542e-07 
5 . 592e-07 
6 . 558e-07 
7 . 966e-07 
8 . 003e-07 
7 . 240e-07 
5 . 955e-07 
4 . 955e-07 
4 . 17 6e-07 
1 . 030e-06 
8 . 488e-07 
1 . 267e-06 
1 . 495e-06 
1 . 556e-06 
1 . 502e-06 
1 . 232e-06 
9 . 567e-07 
8 . 420e-07 
-1 . 240e-20 
-1 . 640e-20 
-1.512e-07 
-2 . 576e-07 
-8 . 657e-21 
2 . 534e-08 
-4 . 495e-21 
3 . 468e-07 
0 . 000e+00 
7 . 692e-07 
3 . 978e-22 
4 . 466e-07 
5 . 080e-21 
1 . 095e-07 
8 . 540e-21 
-9 . 636e-08 
1 . 290e-20 
-2 . 284e-07 
1 . 512e-07 
2 . 576e-07 
-2 . 534e-08 
-3 . 468e-07 
-7 . 692e-07 
-4 . 466e-07 
-1 . 095e-07 
9 . 636e-08 


Final Report A6.25 



198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 
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218 
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220 
221 
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224 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 


3 . 183e-08 
4 . 154e-08 
2 . 741e-08 
-3 . 889e-08 
-1.142e-07 
-1. 557e-07 
-1.222e-07 
-4 . 629e-08 
2 . 143e-08 
4 . 791e-08 
2 . 855e-07 
3 . llle-07 
2 . 386e-07 
1. 926e-07 
1. 515e-07 
1 . 637e-07 
1. 974e-07 
2 . 295e-07 
2 . 131e-07 
-2 . 741e-08 
-4 . 154e-08 
3. 889e-08 
1. 142e-07 
1 . 557e-07 
1 . 222e-07 
4 . 629e-08 
-2 . 143e-08 
-4.791e-08 
-2 . 855e-07 
-3. llle-07 
-2 . 386e-07 
-1 . 926e-07 
-1. 515e-07 
-1. 637e-07 
-1 . 974e-07 
-2 . 295e-07 • 

-2 . 131e-07 ■ 

4 . 599e-07 - 

5.450e-07 - 

6. 192e-07 
6. 831e-07 
6. 816e-07 
6. 494e-07 
5.529e-07 - 

4.626e-07 - 

3 . 868e-07 
3. 616e-07 
2 . 476e-07 
5 . 156e-07 
6. 987e-07 
7. 667e-07 
6. 784e-07 
4 . 7 64e-07 
3. 004e-07 
1 . 379e-07 
•5. 450e-07 
4 . 599e-07 
6. 192e-07 
6. 831e-07 


-1 . 463e-06 
-1.163e-06 
-1. 146e-06 
-1.249e-06 
-1.350e-06 
~1 . 367e-06 
-1.319e-06 
-1 . 18 6e-06 
-1 . 049e-06 
-9 . 973e-07 
-5 . 205e-07 
-4 . 765e-07 
-5. 872e-07 
-6.369e-07 
-6. 497e-07 
-6.543e-07 
-6. 022e-07 
-5. 389e-07 
-5. 456e-07 
-1. 146e-06 
~1 . 1 63e-06 
-1.249e-06 
-1 . 350e-06 
-1 . 367e-06 
-1 . 319e-06 
-1 . 186e-06 
-1. 049e-06 
-9. 973e-07 
-5 . 205e-07 
-4 . 7 65e-07 
-5. 872e-07 
~6 . 369e-07 
-6. 497e-07 
-6. 543e-07 
-6. 022e-07 
-5 . 389e-07 
-5. 456e-07 
-1.968e-07 
-9.527e-08 
1 . 339e-08 
1 . 255e-07 
1 . 763e-07 
9 . 67 6e-08 
-3 . 953e-08 
-1. 550e-07 
-2 . 345e-07 
-2 . 351e-07 
-3. 642e-07 
-3 . 996e-08 
2 . 068e-07 
3 . 576e-07 
1. 897e-07 
-6. 824e-08 
■2 . 780e-07 
■4 . 453e-07 
■9.527e-08 
1. 968e-07 
1 . 339e-08 
1 . 255e-07 


3. 701e-08 
8 . 641e-08 
7. 108e-08 
6. 240e-08 
6 . 246e-08 
7. 168e-08 
7 . 310e-08 
5.588e-08 
3 . 347e-08 
1 . 343e-08 
4. 728e-08 
6. 029e-08 
3 . 872e-08 
2. 947e-08 
2 . 010e-08 
8 . 924e-09 
-6. 972e-09 
-2.587e-08 
-3 . 868e-08 
7 . 108e-08 
8 . 641e-08 
6 . 240e-08 
6 . 246e-08 
7 . 168e-08 
7 . 310e-08 
5 . 588e-08 
3 . 347e-08 
1 .343e-08 
4. 728e-08 
6. 029e-08 
3 . 872e-08 
2.94 7e-08 
2 . 010e-08 
8. 924e-09 
-6.9 72e-09 
-2 . 587e-08 
-3 . 868e-08 
6.692e-08 
5 . 196e-08 ■ 

3 . 287e-08 - 

2 . 708e-09 - 

-4 . 558e-08 - 

-7 . 475e-08 
-8 . 542e-08 
-8 . 672e-08 
-8 . 863e-08 
6 . 127e-08 - 

7 . 585e-08 
4 . 269e-08 
1 . 065e-08 
-3 . 722e-08 
-9 . 895e-08 
-9 . 527e-08 
-8.389e-08 
-7.228e-08 
5. 196e-08 
6 . 692e-08 
3.287e-08 
2 . 708e-09 
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1 . 868e-07 
-1.202e-07 
4 . 182e-08 
8 . 268e-08 
3 . 122e-08 
-1 . 856e-08 
-1 . 033e-07 
-1 . 481e-07 
-1 . 224e-07 
3. 105e-08 
4 . 853e-08 
-2.236e-08 
4 . 448e-08 
2 . 067e-08 
-2 . 427e-08 
-7 . 552e-08 
-1 . 012e-07 
-7 . 587e-08 
3 . 071e-08 
4 . 182e-08 
-1 . 202e-07 
8.268e-08 
3 . 122e-08 
-1 . 856e-08 
-1.033e-07 
-1 . 481e-07 
-1.224e-07 
3 . 105e-08 
4 . 853e-08 
-2 . 236e-08 
4 . 448e-08 
2 . 067e-08 
-2 . 427e-08 
-7 . 552e-08 
-1 . 012e-07 
-7 . 587e-08 
3. 071e-08 
-9. 951e-08 
-8 . 438e-08 
-9. 089e-08 
-5. 839e-08 
-1.566e-08 
1 . 673e-08 - 

5.923e-08 - 

4 . 062e-08 - 

5 . 831e-08 
-1 . 186e-07 
-1.128e-07 
-1 . 668e-07 
-1 . 575e-07 
-6.326e-09 
1. 670e-07 
1 . 554e-07 
1 . 399e-07 
1 . 400e-07 
-8 . 438e-08 
■9. 951e-08 
•9. 089e-08 
5. 839e-08 


4 . 198e-08 
8 . 801e-09 
-4 . 672e-08 
-5 . 832e-08 
-3. 484e-08 
-2 . 024e-08 
8 . 4 41e-09 
1 . 817e-08 
2 . 366e-09 
-5 . 740e-08 
-4 . 852e-08 
-5 . 233e-09 
-5. 097e-08 
-5. 104e-08 
-5. 883e-08 
-6 . 333e-08 
-4 . 763e-08 
-4 . 651e-08 
-9. 975e-08 
4 . 672e-08 
-8. 801e-09 
5 . 832e-08 
3. 484e-08 
2 . 024e-08 
-8. 441e-09 
-1 . 817e-08 
-2 . 366e-09 
5. 740e-08 
4 . 852e-08 
5 . 233e-09 
5. 097e-08 
5. 104e-08 
5. 883e-08 
6 . 333e-08 
4 . 7 63e-08 
4 . 65le-08 
9. 975e-08 
7 . 527e-08 
6. 007e-08 
6 . 4 68e-08 
3 . 1 61e-08 
-4 . 757e-08 
-1 . 106e-07 
-1 . 312e-07 
-9.817e-08 
-1 . 011e-07 
1 . 156e-07 
1. 124e-07 
1 . 688e-07 
1 . 597e-07 
4 . 142e-08 
-1.881e-07 
■1 . 532e-07 
-1 . 256e-07 
•1 . 249e-07 
■6 . 007e-08 
7 . 527e-08 
6 . 4 68e-08 
3 . 161e-08 


2.284e-i 
-4.887e-< 
-3. 970e-i 
-3 . 447e-( 
-3 . 197e-< 
-2 . 584e-( 
-2 . 442e-( 
-3 . 102e-( 
-3 . 648e-( 
-4 . 005e-( 
-5 . 151e-C 
-4. 244e-( 
-6 . 333e-( 
-7 . 476e-C 
-7 . 778e-C 
-7 . 509e-( 
-6 . 158e-( 
-4 . 784e-C 
-4 . 210e-C 
3 . 97 Oe-C 
4 . 887e-C 
3.44 7e-C 
3 . 197e-0 
2 . 584e-C 
2. 442e-C 
3 . 102e-0 
3 . 648e-0 
4 . 005e-0 
5. 151e-0 
4 . 244e-0 
6.333e-0 
7 . 476e-0 
7 . 778e-0 
7. 509e-0 
6. 158e-0 
4.784e-0 
4 . 210e-0 
-6 . 553e-0 
-1 . 622e-0 
“3 . llle-0 
-4 . 768e-0 
-5. 419e-0 
-4 . 798e-0 
-2. 853e-0 
-1 . 308e-0 
-1 . 706e-0 
5. 090e-0 
4 . 860e-0 
5. 035e-0 
4 . 067e-0' 

4 . 236e-0 
4. 997e-0' 

4 . 352e-0 
4 . 568e-0' 

4 . 839e-0" 

1 . 622e-0' 

6. 553e-0! 

3. llle-0’ 

4 . 768e-0‘ 
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257 -6. 816e-07 1.763e-07 

258 -6. 494e-07 9.676e-08 

259 -5 . 529e-07 -3.953e-08 

260 -4 . 626e-07 -1.550e-07 

261 -3. 868e-07 -2.345e-07 

262 -3. 616e-07 -2.351e-07 

263 -2 . 476e-07 -3.642e-07 

264 -5 . 156e-07 -3.996e-08 

265 -6 . 987e-07 2.068e-07 

266 -7 . 667e-07 3.576e-07 

267 -6. 784e-07 1.897e-07 

268 -4.764e-07 -6.824e-08 

269 -3 . 004e-07 -2.780e-07 

270 -1 . 379e-07 -4.453e-07 

271 -5 . 459e-07 -8.905e-07 

272 -4 . 559e-07 -7.784e-07 

273 -3 . 900e-07 -6.406e-07 

274 -2 . 360e-07 -4.061e-07 

275 0 . 000e+00 0.000e+00 

276 -2 . 031e-07 -3.855e-07 

277 -3 . 448e-07 -6.109e-07 

278 -3 . 852e-07 -7.322e-07 

279 -4 . 333e-07 -8.182e-07 

280 -1 . 272e-06 -1.146e-06 

281 -1 . 209e-06 -1.174e-06 

282 -1 . 459e-06 -1.126e-06 

283 -1 . 663e-06 -1.074e-06 

284 -1 . 685e-06 -9.717e-07 

285 -1 . 560e-06 -1.025e-06 

286 -1 . 325e-06 -1.055e-06 

287 -1 . 086e-06 -1.047e-06 

288 -9. 661e-07 -1.046e-06 

289 4 . 559e-07 -7.784e-07 

290 5 . 459e-07 -8.905e-07 

291 3 . 900e-07 -6.406e-07 

292 2 . 360e-07 -4.061e-07 

293 0 . 000e+00 0.000e+00 

294 2 . 031e-07 -3.855e-07 

295 3 . 448e-07 -6.109e-07 

296 3 . 852e-07 -7.322e-07 

297 4 . 333e-07 -8.182e-07 

298 1.272e-06 -1.146e-06 

299 1 . 209e-06 -1.174e-06 

300 1 . 459e-06 -1.126e-06 

301 1 . 663e-06 -1.074e-06 

302 1 . 685e-06 -9.717e-07 

303 1 . 560e-06 -1.025e-06 

304 1 . 325e-06 -1.055e-06 

305 1 . 086e-06 -1.047e-06 

306 9. 661e-07 -1.046e-06 

307 -1 . 046e-06 -1.114e-06 

308 -1 . 169e-06 -1.117e-06 

309 -1 . 422e-06 -1.120e-06 

310 -1 . 677e-06 -1.105e-06 

311 -1 . 755e-06 -1.051e-06 

312 -1 . 612e-06 -1.068e-06 

313 -1 . 292e-06 -1.051e-06 

314 -9. 951e-07 -1.021e-06 

315 -8 . 301e-07 -9.924e-07 
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-4 . 558e-08 

-1 . 566e-08 

-7 . 475e-08 

1 . 673e-08 

-8 . 542e-08 

5. 923e-08 

-8 . 672e-08 

4 . 062e-08 

-8 . 863e-08 

5 . 831e-08 

6 . 127e-08 

-1 . 186e-07 

7 . 585e-08 

-1 . 128e-07 

4 . 269e-08 

-1 . 668e-07 

1 . 065e-08 

-1 . 575e-07 

-3 . 722e-08 

-6 . 326e-09 

-9. 895e-08 

1 . 670e-07 

-9 . 527e-08 

1 . 554e-07 

-8 . 389e-08 

1 . 399e-07 

-7 . 228e-08 

1 . 400e-07 

7 . 431e-08 

-1 . 104e-07 

6 . 318e-08 

-8 . 407e-08 

5 . 189e-08 

-1 . 210e-07 

3 . 369e-08 

-2 . 331e-07 

0 . 000e+00 

0 . 000e+00 

4 . 624e-09 

2 . 269e-07 

1 . 588e-08 

1 . 348e-07 

1 . 858e-08 

8 . 473e-08 

1 . 827e-08 

1 . 064e-07 

4 . 369e-08 

2 . 197e-10 

4 . 974e-08 

-6 . 090e-08 

4 . 816e-08 

1 . 987e-08 

6 . 222e-08 

2 . 356e-08 

9 . 367e-08 

5.470e-08 

1 . 575e-07 

1 . 010e-08 

1.487e-07 

-1 . 384e-08 

1 . 258e-07 

-2 . llle-08 

1 . 093e-07 

1 . 887e-08 

6 . 318e-08 

-8 . 407e-08 

7 . 431e-08 

-1 . 104e-07 

5 . 189e-08 

-1 . 210e-07 

3 . 369e-08 

-2 . 331e-07 

0 . 000e+00 

0 . 000e+00 

4 . 624e-09 

2 . 269e-07 

1 . 588e-08 

1 . 348e-07 

1 . 858e-08 

8 . 473e-08 

1 . 827e-08 

1 . 064e-07 

4 . 369e-08 

2 . 197e-10 

4 . 974e-08 

-6 . 090e-08 

4 . 816e-08 

1. 987e-08 

6 . 222e-08 

2 . 356e-08 

9 . 367e-08 

5 . 470e-08 

1 . 575e-07 

1 . 010e-08 

1 . 487e-07 

-1 . 384e-08 

1 . 258e-07 

-2. llle-08 

1 . 093e-07 

1 . 887e-08 

1 . 949e-08 

-3 . 702e-08 

1. 912e-08 

-9. 715e-09 

2. 952e-08 

1 . 398e-09 

5 . 975e-08 

-1 . 638e-08 

1 . 173e-07 

-7 . 583e-08 

1 . 478e-07 

-1 . 317e-07 

1 . 413e-07 

-1 . 423e-07 

1 . 202e-07 

-1 . 239e-07 

1 . 021e-07 

-9 . 263e-08 


Structural Analysis Interface 

4 . 757e-08 5.419e-07 

1 . 106e-07 4 . 798e-07 

1 . 312e-07 2 . 853e-07 

9 . 817e-08 1.308e-07 

1 . 011e-07 1 . 706e-08 

-1.156e-07 -5 . 090e-07 

-1 . 124e-07 -4 . 860e-07 

-1 . 688e-07 -5.035e-07 

-1 . 597e-07 -4.067e-07 

-4 . 142e-08 -4.236e-07 

1 . 881e-07 -4 . 997e-07 

1 . 532e-07 -4.352e-07 

1 . 256e-07 -4.568e-07 

1 . 24 9e-07 -4.839e-07 

1 . 158e-07 7 . 966e-07 

5 . 934e-08 8.543e-07 

9 . 851e-08 1.042e-06 

2 . 329e-07 1.250e-06 

0 . 000e+00 0 . 000e+00 

-1 . 880e-07 1 . 191e-06 

-5 . 731e-08 9.458e-07 

-1 . 072e-08 7 . 318e-07 

-8 . 944e-08 5.512e-07 

-1 . 215e-07 3 . 579e-07 

4 . 723e-08 2.283e-07 

-1 . 702e-07 5 . 289e-07 

-1 . 289e-07 7.535e-07 

5 . 663e-08 1.193e-06 

1 . 418e-07 9 . 463e-07 

1 . 869e-07 5.447e-07 

1 . 510e-07 3 . 605e-07 

9. 339e-10 2.555e-07 

-5 . 934e-08 -8.543e-07 

-1.158e-07 -7 . 966e-07 

-9 . 851e-08 -1.042e-06 

-2 . 329e-07 -1.250e-06 

0 . 000e+00 0 . 000e+00 

1 . 880e-07 -1 . 191e-06 

5 . 731e-08 -9.458e-07 

1 . 072e-08 -7 . 318e-07 

8 . 944e-08 -5.512e-07 

1 . 215e-07 -3 . 579e-07 

■4 . 723e-08 -2.283e-07 

1 . 702e-07 -5 . 289e-07 

1 . 289e-07 -7.535e-07 

■5 . 663e-08 -1.193e-06 

•1 . 418e-07 -9 . 463e-07 

■1 . 869e-07 -5.447e-07 

■1 . 510e-07 -3.605e-07 

9 . 339e-10 -2.555e-07 

1 . 535e-08 -5.542e-07 

1 . 627e-07 -5.592e-07 

2 . 118e-07 -6 . 558e-07 

1 . 108e-07 -7 . 966e-07 

1 . 618e-08 -8 . 003e-07 

1 . 634e-07 -7.240e-07 

2 . 542e-07 -5.955e-07 

1 . 915e-07 -4 . 955e-07 

4 . 548e-08 -4.176e-07 
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316 

317 

318 

319 

320 

321 

322 

323 

324 


1 . 169e-06 
1 . 046e-06 
1 . 422e-06 
1. 677e-06 
1 . 755e-06 
1 . 612e-06 
1 . 292e-06 
9 . 951e-07 
8 . 301e-07 


-1 . 117e-06 
-1 . 114e-06 
-1 . 120e-06 
-1 . 105e-06 
-1 . 051e-06 
-1 . 068e-06 
-1 . 051e-06 
-1.021e-06 
-9. 924e-07 


1 . 912e-08 
1 . 94 9e-08 
2 . 952e-08 
5 . 975e-08 
1 . 173e-07 
1 . 478e-07 
1 . 413e-07 
1 . 202e-07 
1 . 021e-07 


-9 . 715e-09 
-3 . 702e-08 
1 . 398e-09 
-1 . 638e-08 
-7 . 583e-08 
-1 . 317e-07 
-1 . 423e-07 
-1 . 239e-07 
-9 . 263e-08 


1 . 627e-07 
1 . 535e-08 
2. 118e-07 
1 . 108e-07 
-1 . 618e-08 
-1. 634e-07 
-2 . 542e-07 
-1 . 915e-07 
-4 . 548e-08 


5 . 592e-0 
5 . 542e-0 
6 . 558e-0 
7 . 966e-0 
8 . 003e-0 
7 . 240e-0 
5 . 955e-0 
4 . 955e-0 
4 . 176e-0 
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A6.7 printdrinfea Sample deformation data (printed by the interface) 


1 1.5707963267949 

2 1.7453292959202 

3 1.7453293062579 

4 1.5707963267949 

5 1.7453292754984 

6 1.5707963267949 

7 1.7453292030675 

8 1.5707963267949 

9 1.7453292117515 C 

10 1.5707963267949 

11 1.7453292591006 

12 1.5707963267949 

13 1.7453292330449 

14 1.5707963267949 

15 1.7453293011935 

16 1.5707963267949 

17 1.7453291919049 

18 1.5707963267949 

19 1.3962633473319 

20 1.3962633576696 

21 1.3962633780914 

22 1.3962634505223 

23 1.3962634418383 

24 1.3962633944892 

25 1.3962634205449 

26 1.3962633523963 

27 1.3962634616849 

28 1.9198622126628 

29 1.9198621890549 

30 1.9198621073355 

31 1.9198621999993 

32 1.9198621521119 

33 1.9198622014542 

34 1.9198621066836 

35 1.9198622323289 

36 1.9198621859538 

37 2.0943951434944 

38 2.0943951226304 

39 2.0943951272970 

40 2.0943951398757 

41 2.0943950709521 

42 2.0943950648375 

43 2.0943951117671 

44 2.0943951132302 

45 2.0943950943380 

46 1.2217304645349 

47 1.2217304409270 

48 1.2217305462543 

49 1.2217304535905 

50 1.2217305014779 

51 1.2217304521356 

52 1.2217305469062 

53 1.2217304212608 

54 1.2217304676360 


-49.250000000000 
-49.250000000000 
-36.937500000000 
-36.937500000000 
-24.625000000000 
-24.625000000000 
-12.312500000000 
-12.312500000000 
). -1 . 0 9823834 98385D-05 

6 . 0 . 

12.312500000000 
12.312500000000 
24.625000000000 
24.625000000000 
36.937500000000 
36.937500000000 
49.250000000000 
49.250000000000 
-36.937500000000 
-49.250000000000 
-24.625000000000 
-12.312500000000 


-1. 836000000 00 OOD-O 5 
-1. 582 303 62 50514 D- 05 
-1.4613806478636D-05 
-1.5680000000000D-05 
-1 . 38 69131517 254D-05 
-1 . 31 6000000 00 OOD-O 5 
-1. 2 6220 63 498638 D- 05 
-8.1480000000000D-06 


24 . 625000000000 
36.937500000000 
49.250000000000 
-36.937500000000 
-49.250000000000 
-24 . 625000000000 
-12.312500000000 


-1. 17 4697 5926682 D- 05 
-7. 37 40000000000 D- 06 
-1 . 2 853511 98 02 09D- 05 
-1. 2080000000000 D- 05 
-1.32741032964 97 D- 05 
-1 . 3 9900000000 00D- 05 
-1. 44 6300 97 75340 D- 05 
-1. 5690000000000 D- 05 
-1. 4613806478 636D-05 
-1.582303 62 50514 D- 05 
-1.3869131517 254 D-05 

-1.2 6220 634 98 63 8 D-05 

0. -lTo982383498385D-05 

12 312500000000 -1 . 1746975926682D-05 

-1.2853511980209 D-05 
-1. 32741032964 97D-05 
-1.44 6300 97 75340 D-05 
-1.0 67 512 95 647 63 D-05 
-1.07 86549960393 D-05 
-1.186 97 727 40249 D-05 

__ -1.307 64 37303462 D-05 

-l~3378:L23569872D-05 
12 312500000000 -1 . 2812494201724D-05 

-1. 13030758 62210D-05 
-9. 7840804 664130D-06 
-9. 207 692 62 26064 D- 06 
-3. 0801 62 01810 92 D- 06 
-2. 57111094 62 944D-06 
-3. 8 9230104 64 4 51 D- 06 

-4 . 5527156148 20 6D-06 

0 -4^869067i917756D-06 

12 312500000000 -4 . 8479043930672D-06 

-4.2282049373399D-06 

-3. 51 95108502554 D- 06 
-3. 659534 6398883D-06 
-1.078 65 499603 93 D-05 
- 1.0 67 51295 64 7 63 D-05 
-1 . 18 6977 27 4 02 4 9D- 05 

-1.3 07 64 37 303462 D-05 

0. -1^3378 123569872D-05 

12.312500000000 -1.28 124 94 20 17 24 D-05 

24*. 625000000000 -1 . 13030758 6221 0D-05 

36! 937500000000 -9.7840804664130D-06 

49.250000000000 -9. 2 07 6 92 622 6064 D- 06 


0 


24 . 625000000000 
36.937500000000 
49.250000000000 
-36.937500000000 
-49.250000000000 
-24.625000000000 
-12.312500000000 


24 . 625000000000 
36.937500000000 
49.250000000000 
-49.250000000000 
-36.937500000000 
-24 . 625000000000 
-12.312500000000 
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55 

1.0471975100954 

56 

1.0471975309594 

57 

1.0471975262928 

58 

1.0471975137141 

59 

1 . 0471975826377 

60 

1.0471975887523 

61 

1.0471975418227 

62 

1.0471975403596 

63 

1.0471975592518 

64 

2.2689281036071 

65 

2.2689279471409 

66 

2.2689279104967 

67 

2.2689280254862 

68 

2.2689280478887 

69 

2.2689279397876 

70 

2.2689280136658 

71 

2.2689280095997 

72 

2.2689280607141 

73 

2.4434608767776 

74 

2.4434609329784 

75 

2.4434608837908 

76 

2.4434609548985 

77 

2 .4434609324960 

78 

2.4434608500488 

79 

2.4434609667189 

80 

2.4434609707850 

81 

2.4434609196706 

82 

0.87266470644885 

83 

0.87266454998266 

84 

0.87266474309312 

85 

0.87266462810357 

86 

0.87266460570114 

87 

0.87266471380215 

88 

0.87266463992403 

89 

0.87266464399008 

90 

0.87266459287571 

91 

0.69813177681223 

92 

0.69813172061141 

93 

0.69813176979897 

94 

0.69813169869133 

95 

0.69813172109376 

96 

0.69813180354102 

97 

0.69813168687086 

98 

0.69813168280482 

99 

0.69813173391918 

100 

2.6179938368903 

101 

2.6179938577543 

102 

2. 6179938530877 

103 

2.6179938405090 

104 

2 . 6179939094326 

105 

2.6179938479209 

106 

2.6179938686176 

107 

2.6179938671545 

108 

2.6179938860467 

109 

2.7925267677219 

110 

2.7925267913298 

111 

2.7925267489221 

112 

2.7925267803854 

113 

2.7925268282728 
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-36.937500000000 -3 

-49.250000000000 -2 

-24.625000000000 -3 

-12.312500000000 -4. 

0. -4 . 8 6 90 67 191775 6 D- 

12.312500000000 -4. 

24.625000000000 -4 

36.937500000000 -3* 

49.250000000000 -3. 

-36.937500000000 2 . 

-49.250000000000 1 . 

-24.625000000000 4* 

-12.312500000000 5. 

0. 5 . 73 177 678381 4 9D- 

12.312500000000 4. 

24.625000000000 3. 

36.937500000000 1 . 

49.250000000000 6 * 

-36.937500000000 1 . 

-49.250000000000 -4 

-24.625000000000 3 ’ 

-12.312500000000 6 . 

0. 8 . 17 1871 19320 67D- 

12.312500000000 6 

24.625000000000 3 

36.937500000000 5. 

49.250000000000 - 1 . 

-49.250000000000 l! 

-36.937500000000 2 

-24.625000000000 4 ' 

-12.312500000000 5. 

0. 5.73177 6783814 9D- 

12.312500000000 4. 

24.625000000000 3 ! 

36.937500000000 1 . 

49.250000000000 6 * 

-36.937500000000 l! 

-49.250000000000 -4.* 

-24.625000000000 3* 

-12.312500000000 6 * 

0 . 8 . 171 8711 932 067 D- 

12.312500000000 6 

24.625000000000 3. 

36.937500000000 5. 

49.250000000000 - 1 ." 

-36.937500000000 -7 

-49.250000000000 -9 

-24.625000000000 -6 

-12.312500000000 -4 

0 . 0 . 

12.312500000000 -3 

24.625000000000 -6 

36.937500000000 -6 

49.250000000000 -7 

-36.937500000000 -1 

-49.250000000000 -1 

-24.625000000000 -1 

-12.312500000000 -1 

0. -1.915723 03 08464D 


0801620181092 D- 06 
5711109462 94 4 D- 06 
8923010464451 D- 06 
5527 15 61 4 820 6D-0 6 
06 

8479043 930 67 2D- 06 
228204 9373399D- 06 
51 95 108502554 D- 06 
65 95 34 63 98883 D-06 
7733822 95 7384 D-06 
4486043 67 6840 D-06 
0827136847642 D-06 
352 267 92 85598 D-06 
■06 

9154869582748 D-06 
2511552630665D-06 
7861665138869D-06 
8992840321956D-07 
2588227223 63 3D-06 
4430 652012895 D- 07 
6 92 8669700838 D-06 
681 63 73070273 D-06 
06 

4162132989699D-06 
2107975120964 D-06 
1424802526172 D- 07 
8059580812158 D-06 
448604367 68 40D- 06 
77 33 822 957384 D-06 
0827136847642 D-06 
352267 92 85598 D-06 
06 

915486 95 82748 D-06 
2511552 630665 D-06 
7 8 61 6 65 1 38 8 6 9D- 06 
8 9 92 8 4 03 21 95 6D-0 7 
2588227 223 63 3 D-06 
44306520128 95D- 07 
6 92 8669700838 D-06 
6816373070273D-06 
06 

4162132989699D-06 
2107 97 5120964 D-06 
1424802526172D-07 
8059580812158 D-06 
.84020999 92 322 D-06 
.1801327800904 D-06 
.5804991 64 3571D-06 
.07 43200405252 D-06 

. 68 6397664 9411D-06 
.040555 62 56813D- 06 
. 9969299032233D-06 
.8434880349719D-06 
.587244120 65 63D-05 
. 537 62 0034 97 51 D- 05 
.75612 62454523 D- 05 
.93 00384723434 D-05 
'-05 
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114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 


2.7925267789305 12.312500000000 -1 . 8164911457579D-05 

2.7925267447459 24.625000000000 -1. 6059240052049D-05 

2.7925267480557 36.937500000000 -1 . 3786013100016D-05 

2.7925267944309 49.250000000000 -1.2655901165758D-05 

0.52359879583553 -49.250000000000 -9. 1801327800904D-06 

0.52359881669953 -36.937500000000 -7 . 8402099992322D-06 

0.52359880050209 -24.625000000000 -6. 5804991643571D-06 

0.52359881308079 -12.312500000000 -4 . 0743200405252D-06 

0.52359874415719 0. 0. 


0.52359880566892 

0.52359878497223 

0.52359878643526 

0.52359876754311 

0.34906588586790 

0.34906586225996 

0.34906590466765 

0.34906587320437 

0.34906582531700 

0.34906587465928 

0.34906590884386 

0.34906590553405 

0.34906585915894 

2.9670596741268 

2.9670596617362 

2.9670595747999 

2.9670596466244 

2.9670597686332 

2.9670595880862 

2.9670597473398 

2.9670596791912 

2.9670596492489 

3.1415926226384 

3.1415925980227 

3.1415926089710 

3.1415926240402 

3.1415926271768 

3.1415925813100 

3.1415926082587 

3.1415925866994 

3.1415926091892 

0.17453299185364 

0.17453297946304 

0.17453307878992 

0.17453300696537 

0.17453288495656 


12.312500000000 -3 . 686397664 94 11D-06 

24.625000000000 -6. 0405556256813D-06 

36.937500000000 -6 . 9969299032233D-06 

49.250000000000 -7 . 84348803 4 97 19D-06 

-36.937500000000 -1. 587244 12 065 63D-05 

-49.250000000000 -1 .537 620034 9751D-05 

-24 . 625000000000 -1 . 7561262 4 54523D-05 

-12.312500000000 -1 . 9300384723434D-05 

0. -1.91572303084 64 D-05 

12.312500000000 -1 . 8164911457579D-05 

24.625000000000 -1 . 605924005204 9D-05 

36.937500000000 -1 . 378601310001 6D-05 

49.250000000000 -1 . 2 6559011 657 58D-05 

-36.937500000000 -1 . 34520532 64 01 6D-05 

-49.250000000000 -1 . 22355304 058 96D-05 

-24 . 625000000000 -1 . 5948827152525D-05 

-12.312500000000 -1 . 8434039032913D-05 

0. -1 . 9108418 118758D-05 

12.312500000000 -1. 7729664598 982D-05 

24.625000000000 -1 . 4548758362578D-05 

36.937500000000 -1 . 1572770253881D-05 

49.250000000000 -9. 8981743323099D-06 

-36.937500000000 -3 . 1811570459104D-12 

-49.250000000000 -4 . 8980059471230D-12 

-24.625000000000 -5 . 0271875903228D-12 

-12.312500000000 -3 . 7578087085528D-12 

0. -3 . 3989396322871D-12 

12.312500000000 -8 . 4079121696551D-12 

24.625000000000 -4.3219256290310D-12 

36.937500000000 -4 . 9253618262717D-12 

49.250000000000 -2 . 4141325175787D-12 

-49.250000000000 -1 . 22355304058 96D-05 

-36.937500000000 -1 . 3452053264016D-05 

-24.625000000000 -1 . 5948827152525D-05 

-12.312500000000 -1 . 8434039032 913D-05 

0. -1. 9108418118758D-05 


0.17453306550359 
0.17453290625004 
0.17453297439857 
0.17453300434087 
3.0951433000630D- 
5. 5567088166886D- 
4.4618759089666D- 
2. 9549629748773D- 
2. 6413026666667D- 
7.2279791765006D- 
4. 53311046 97 837 D- 
6. 6890412904987D- 
4.4400624893966D- 
-1.5707963267949 


12.312500000000 -1 . 7729664598982D-05 

24.625000000000 -1 . 4548758362578D-05 

36.937500000000 -1 . 1572770253881D-05 

49.250000000000 -9 . 8981743323099D-06 

08 -36.937500000000 -3 . 1811570449564D-12 

08 -49.250000000000 -4 . 8980059448939D-12 

08 -24.625000000000 -5 . 0271875908967D-12 

08 -12.312500000000 -3 . 7578087063416D-12 

08 0. -3 . 3989396292533D-12 

08 12.312500000000 -8 . 4079121669640D-12 

08 24.625000000000 -4 . 3219256283476D-12 

08 36.937500000000 -4 . 9253618264423D-12 

08 49.250000000000 -2 . 4141325159051D-12 

-36.937500000000 1 . 5680000000000D-05 
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173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 


-1.5707963267949 

-1.7453293062579 

-1.7453292959202 

-1.5707963267949 

-1.7453292754984 

-1.5707963267949 

-1.7453292030675 

-1.5707963267949 

-1.7453292117515 

-1.5707963267949 

-1.7453292591006 

-1.5707963267949 

-1.7453292330449 

-1.5707963267949 

-1.7453293011935 

-1.5707963267949 

-1.7453291919049 

-1.3962633473319 

-1.3962633576696 

-1.3962633780914 

-1.3962634505223 

-1.3962634418383 

-1.3962633944892 

-1.3962634205449 

-1.3962633523963 

-1.3962634616849 

-1.9198621890549 

-1.9198622126628 

-1.9198621073355 

-1.9198621999993 

-1.9198621521119 

-1.9198622014542 

-1.9198621066836 

-1.9198622323289 

-1.9198621859538 

-2.0943951434944 

-2.0943951226304 

-2.0943951272970 

-2.0943951398757 

-2.0943950709521 

-2.0943950648375 

-2.0943951117671 

-2.0943951132302 

-2.0943950943380 

-1.2217304409270 

-1.2217304645349 

-1.2217305462543 

-1.2217304535905 

-1.2217305014779 

-1.2217304521356 

-1.2217305469062 

-1.2217304212608 

-1.2217304676360 

-1.0471975100954 

-1.0471975309594 

-1.0471975262928 

-1.0471975137141 

-1.0471975826377 

-1.0471975887523 


-49.250000000000 1 . 8360000000000D-05 

-36.937500000000 1 . 4613806478636D-05 

-49.250000000000 1 . 582303 6250514D-05 

-24 . 625000000000 1 . 3160000000000D-05 

-24 . 625000000000 1.3869131517254D-05 

-12.312500000000 8 . 1480000000000D-06 

-12.312500000000 1. 2622 0634 98 638D-05 

0. 0. 

0. 1.0982383498385D-05 

12 . 312500000000 7 . 3740000000000D-06 

12 . 312500000000 1 . 17 4 697 5 92 6 68 2 D-05 

24 . 625000000000 1 . 2080000000000D-05 

24 . 625000000000 1 . 2853511980209D-05 

36.937500000000 1 . 3990000000000D-05 

36.937500000000 1 . 3274103296497D-05 

49.250000000000 1 . 5690000000000D-05 

49.250000000000 1 . 4463009775340D-05 

-36.937500000000 1 . 4613806478636D-05 

-49.250000000000 1 . 582303 6250514D-05 

-24 . 625000000000 1 . 386913 15 172 54D-05 

-12 . 312500000000 1 . 26220634 98 638D-05 

0. 1.0982383498385D-05 

12 . 312500000000 1 . 17 4 697592 6682D-05 

24 ! 625000000000 1 . 285351 198 02 09D-05 

36.937500000000 1 . 32741032 964 97D-05 

49.250000000000 1 . 4463009775340D-05 

-49.250000000000 1 . 078 654 99603 93D-05 

-36.937500000000 1 . 0675129564763D-05 

-24 . 625000000000 1. 18 697727 4024 9D-05 

-12 . 312500000000 1. 3076437303462D-05 

0. 1 . 3378123569872D-05 

12.312500000000 1 . 28124 942 017 24D-05 

24.625000000000 1 . 13030758 62210D-05 

36.937500000000 9.7840804664130D-06 

49.250000000000 9. 2076926226064D-06 

-36. 937500000000 3 . 0801620181092D-06 

-49.250000000000 2 .5711109462944D-06 

-24 . 625000000000 3 . 89230104 64 451D-06 

-12 . 312500000000 4 . 5527156148206D-06 

0. " 4 . 8690671917756D-06 

12.312500000000 4 . 8 47 904 3 930 67 2D-0 6 

24 . 625000000000 4 .228204 9373399D-06 

36.937500000000 3 . 5195108502554D-06 

49.250000000000 3. 6595346398883D-06 

-36 . 937500000000 1.067512 95647 63D-05 

-49.250000000000 1 . 078654 99603 93D-05 

-24 . 625000000000 1 . 18 697727 4024 9D-05 

-12 312500000000 1 . 3076437303462D-05 

0. 1.3378123569872D-05 

12 . 312500000000 1 . 2812494201724D-05 

24.625000000000 1. 1303075862210D-05 

36 937500000000 9.7840804664130D-06 

49.250000000000 9. 2076926226064D-06 

-36.937500000000 3 . 0801620181092D-06 

-49.250000000000 2 . 5711109462944D-06 

-24 . 625000000000 3.89230104 64451D-06 

-12 . 312500000000 4 .55271561 482 06D-06 

0. 4 . 8 69067 191775 6D-0 6 

12 . 312500000000 4 . 847904 3 930672D-06 
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232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 


-1.0471975418227 

-1.0471975403596 

-1.0471975592518 

-2.2689279471409 

-2.2689281036071 

-2.2689279104967 

-2.2689280254862 

-2.2689280478887 

-2.2689279397876 

-2.2689280136658 

-2.2689280095997 

-2.2689280607141 

-2.4434608767776 

-2.4434609329784 

-2.4434608837908 

-2.4434609548985 

-2.4434609324960 

-2.4434608500488 

-2.4434609667189 

-2.4434609707850 

-2.4434609196706 

-0.87266454998266 

-0.87266470644885 

-0.87266474309312 

-0.87266462810357 

-0.87266460570114 

-0.87266471380215 

-0.87266463992403 

-0.87266464399008 

-0.87266459287571 

-0.69813177681223 

-0.69813172061141 

-0.69813176979897 

-0.69813169869133 

-0.69813172109376 

-0.69813180354102 

-0.69813168687086 

-0.69813168280482 

-0.69813173391918 

-2.6179938577543 

-2.6179938368903 

-2.6179938530877 

-2.6179938405090 

-2.6179939094326 

-2.6179938479209 

-2.6179938686176 

-2.6179938671545 

-2.6179938860467 

-2.7925267677219 

-2.7925267913298 

-2.7925267489221 

-2.7925267803854 

-2.7925268282728 

-2.7925267789305 

-2.7925267447459 

-2.7925267480557 

-2.7925267944309 

-0.52359881669953 

-0.52359879583553 


625000000000 4 

937500000000 3 

250000000000 3 

250000000000 -1 

937500000000 -2 

625000000000 -4 

312500000000 -5 

-5. 73177 67 83814 9D 
312500000000 -4 

625000000000 -3 

937500000000 -1. 

250000000000 -6. 

937500000000 -1. 

,250000000000 4. 

,625000000000 -3. 

,312500000000 -6. 

-8. 1718711 9320 67 D- 
.312500000000 -6. 

.625000000000 -3. 

.937500000000 -5. 

.250000000000 1. 

.937500000000 -2. 

.250000000000 -1. 

.625000000000 -4. 

.312500000000 -5. 

-5.7317767838149D- 
.312500000000 -4. 

.625000000000 -3, 

.937500000000 -1. 

.250000000000 -6 

.937500000000 -1 

.250000000000 4 

.625000000000 -3 

.312500000000 -6 

- 8 . 1718711 9320 67 D 
12.312500000000 -6 

24.625000000000 -3 

36.937500000000 -5 

49.250000000000 1 

-49.250000000000 9 

-36.937500000000 7 

-24.625000000000 6 

-12.312500000000 4 


24. 

36. 

49. 

-49. 

-36. 

-24. 

- 12 . 

0 . 

12 . 

24. 

36. 

49. 

-36. 

-49. 

-24. 

- 12 . 

0 . 

12 , 

24, 

36 

49 

-36 

-49 

-24 

-12 

0 . 

12 

24 

36 

49 

-36 

-49 

-24 

-12 

0 . 


228204 93733 99D-0 6 
51 95 108502554 D-06 
65 95346398883 D-06 
448 60 43 67 6840 D-06 
77 33 822957384 D-06 
0827136847 642 D-06 
3522 67 9285598 D-06 
-06 

91548695827 48 D-06 
2511552630665 D-06 
, 78616651388 69D- 06 
,89928403219560-07 
, 2 58 8227223633 D-06 
, 44 30 652 012895 D- 07 
. 6928669700838 D-06 
. 68 1637 3 07 027 3 D-06 
-06 

. 41 62 132 989699 D-06 
. 2107975120 964D-0 6 
. 1424802526172 D- 07 
. 805 95 80812158 D-06 
. 7733822957384 D-06 
. 448 60 43 67 6840 D-06 
. 0827136847642 D-06 
. 3522 67 9285598 D-06 
-06 

.9154869582748 D-06 
.2511552630665 D-06 
. 78616651388 6 9D-0 6 
8992840321956D-07 
2588227223 63 3 D-06 
4430652012895D-07 
69286697 00838 D-06 
68 1637 3070273 D-06 
■06 

41 62 132989699 D-06 
21 07 97 5120964 D-06 
1424802526172 D-07 
,8059580812158 D-06 
1801327800904 D-06 
,84020999 92 322 D-06 
.5804991643571 D-06 
.07 43200405252 D-06 


0 . 0 . 

12.312500000000 
24.625000000000 
36.937500000000 
49.250000000000 
-36.937500000000 
-49.250000000000 
-24 . 625000000000 
-12.312500000000 
0. 1.91572303084 

12.312500000000 
24 . 625000000000 
36.937500000000 
49.250000000000 
-36.937500000000 
-49.250000000000 


3 . 686397 664 94 11D-06 
6. 04 05556256813 D-06 
6. 996 92 99032233 D-06 
7. 843488034 97 19D- 06 
1. 5872441206563 D- 05 
1.537 62 00349751 D-05 
1. 7561262454523 D- 05 
1.9300384723434 D-05 
64D-05 

1.8164 911 4 57 57 9 D-05 
1.6059240052049D-05 
1. 378 601310001 6D-05 
1 . 2 655 90 11 657 5 8 D-05 
7. 8402099992322 D-06 
9. 1801327800904 D-06 
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291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 


-0.52359880050209 
-0.52359881308079 
-0.52359874415719 
-0.52359880566892 
-0.52359878497223 
-0.52359878643526 
-0.52359876754311 
-0.34906588586790 
-0.34906586225997 
-0.34906590466765 
-0.34906587320437 
-0.34906582531700 
-0.34906587465928 
-0.34906590884385 
-0.34906590553405 
-0.34906585915894 
-2 . 9670596617362 
-2.9670596741268 
-2.9670595747999 
-2.9670596466244 
-2.9670597686332 
-2.9670595880862 
-2.9670597473398 
-2.9670596791912 
-2.9670596492489 
-0.17453297946304 
-0.17453299185364 
-0.17453307878992 
-0.17453300696537 
-0.17453288495656 
-0.17453306550359 
-0.17453290625004 
-0.17453297439857 
-0.17453300434087 
-3.6651914702893 
-3.6651914494253 
-3.6651914540919 
-3.6651914666706 
-3.6651913977470 
-3.6651914592587 
-3.6651914385620 
-3.6651914400251 
-3.6651914211329 
-3.4906585394577 
-3.4906585158498 
-3.4906585582574 
-3.4906585267942 
-3.4906584789068 
-3.4906585282491 
-3.4906585624336 
-3.4906585591238 
-3.4906585127487 
-3.3161256330528 
-3.3161256454434 
-3.3161257323797 
-3.3161256605552 
-3.3161255385464 
-3.3161257190934 
-3.3161255598398 
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-24.625000000000 6 . 5804 991643571D-06 

-12.312500000000 4 . 0743200405252D-06 

0. 0. 

12.312500000000 3 . 686397664 9411D-06 

24.625000000000 6. 0405556256813D-06 

36.937500000000 6 . 9969299032233D-06 

49.250000000000 7 . 8434880349719D-06 

-36.937500000000 1 . 5872441206563D-05 

-49.250000000000 1 . 537 620034 9751D-05 

-24.625000000000 1 . 7561262454523D-05 

-12.312500000000 1 . 9300384723434D-05 

0. 1. 91572303 084 64 D-05 

12.312500000000 1 . 8164 91145757 9D-05 

24 . 625000000000 1 . 605924005204 9D-05 

36.937500000000 1 . 3786013100016D-05 

49.250000000000 1 . 2655901165758D-05 

-49.250000000000 1 . 22355304 058 96D-05 

-36.937500000000 1 . 34520532 64016D-05 

-24.625000000000 1 . 5948827152525D-05 

-12.312500000000 1 . 8434039032913D-05 

0. 1.9108418118758D-05 

12.312500000000 1 . 7729664598 982D-05 

24 . 625000000000 1 . 4548758362578D-05 

36.937500000000 1 . 1572770253881D-05 

49.250000000000 9. 8981743323099D-06 

-36.937500000000 1 . 34520532 64016D-05 

-49.250000000000 1 . 22355304 058 96D-05 

-24 . 625000000000 1 . 5948827152525D-05 

-12.312500000000 1 . 8434039032 913D-05 

0. 1. 9108418118758D-05 

12.312500000000 1 . 7729664598982D-05 

24 . 625000000000 1 . 4548758362578D-05 

36.937500000000 1 . 1572770253881D-05 

49.250000000000 9. 8981743323099D-06 

-36.937500000000 -7 . 8402099992322D-06 

-49.250000000000 -9. 18013278 00 904D-06 

-24 . 625000000000 -6. 5804991643571D-06 

-12.312500000000 -4 . 0743200405252D-06 

0. 0. 


12.312500000000 -3. 6863976649411D-06 

24.625000000000 -6. 0405556256813D-06 

36.937500000000 -6 . 9969299032233D-06 

49.250000000000 -7 . 8434 88034 971 9D-06 

-36.937500000000 -1 . 5872441206563D-05 

-49.250000000000 -1 . 537 620034 9751D-05 

-24 . 625000000000 -1 . 7561262454523D-05 

-12.312500000000 -1 . 9300384723434D-05 

0. -1.91 57230308464 D-05 


12.312500000000 
24.625000000000 
36.937500000000 
49.250000000000 
-36.937500000000 
-49.250000000000 
-24 . 625000000000 
-12.312500000000 


-1. 9108418118758D- 


. 8164 911457579D-05 
. 605 92 4 0052 04 9D- 05 
. 3786013100016D-05 
. 2 6559011 65 758 D-05 
. 3452053264016D-05 
.223553 04 058 96D-05 
. 5 94 88271 52 525 D-05 
. 8434039032 913 D-05 
-05 


12.312500000000 -1 . 7729664598982D-05 

24.625000000000 -1 . 4548758362578D-05 
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350 -3.3161256279884 

351 -3.3161256579307 

352 -3.1415926845412 

353 -3.1415927091569 

354 -3.1415926982086 

355 -3.1415926831394 

356 -3.1415926800028 

357 -3.1415927258696 

358 -3.1415926989209 

359 -3.1415927204802 

360 -3.1415926979904 

361 3.6651914494253 

362 3.6651914702893 

363 3.6651914540919 

364 3.6651914666706 

365 3.6651913977470 

366 3.6651914592587 

367 3.6651914385620 

368 3.6651914400251 

369 3.6651914211329 

370 3.4906585394577 

371 3.4906585158498 

372 3.4906585582574 

373 3.4906585267942 

374 3.4906584789068 

375 3.4906585282491 

376 3.4906585624336 

377 3.4906585591238 

378 3.4906585127487 

379 3.3161256454434 

380 3.3161256330528 

381 3.3161257323797 

382 3.3161256605552 

383 3.3161255385464 

384 3.3161257190934 

385 3.3161255598398 

386 3.3161256279884 

387 3.3161256579307 


36.937500000000 -1 . 157277 02 5388 ID-05 

49.250000000000 -9. 8981743323099D-06 

-36. 937500000000 -3.1811570459104D-12 

-49.250000000000 -4.8980059471230D-12 

-24 . 625000000000 -5 . 0271875903228D-12 

-12 . 312500000000 -3 . 7578087085528D-12 


). -3.3989396322871D- 

12.312500000000 -8. 

24.625000000000 -4. 

36.937500000000 -4. 

49.250000000000 -2. 

-49.250000000000 9. 

-36.937500000000 7. 

-24.625000000000 6. 

-12.312500000000 4. 


4 07 9121696551 D- 12 
321 92 56290310 D- 12 
92 53 6182 62717 D- 12 
4141 32 5175787 D-12 
1801327800904 D- 06 
84020999 92 322 D- 06 
5804991643571 D- 06 
07 43200405252 D- 06 


0 . 0 . 

12.312500000000 3. 68 63 97 664 94 11 D- 06 

24.625000000000 6 . 040555 62568 13D-0 6 

36 . 937500000000 6 . 99692 99032 2 3 3D-0 6 

49 ! 250000000000 7. 843488034 97 19D-06 

-36.937500000000 1 . 5872441206563D-05 

-49.250000000000 1. 537620034 97 5 ID-05 

-24.625000000000 1 . 7561262454523D-05 

-12 312500000000 1 . 9300384723434D-05 

0. ' 1. 9157230308464D-05 

12.312500000000 1 . 816491145757 9D-05 

24 . 625000000000 1 . 605924005204 9D-05 

36! 937500000000 1 . 378 6013 10001 6D-05 

49.250000000000 1 . 2 655 901 1657 5 8 D-05 

-49.250000000000 1. 2235530 4 058 9 6D-0 5 

-36! 937500000000 1 . 34520532 6401 6D-05 

-24 . 625000000000 1 . 5948827152525D-05 

-12.312500000000 1 . 8434 0390 32913D-05 

0 1.9108418118758 D-05 

12.312500000000 1.7729664598982D-05 

24.625000000000 1.45487 583 62 578 D-05 

36.937500000000 1 . 1572770253881D-05 

49.250000000000 9.8981743323099D-06 
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Appendix 7 Sample Sessions 


A7.1 Sample session for command mode GRAZTRACE 


zeus {chen} 63> gt2 


★ it************-:*'-*:*'*****-*'*'**'*'** 

* + 

* GrazTrace * 

* ★ 


GTRACE>res sample ! restore from file "sample" 

GTRACE>wsp i random ray trace option 
WSP>go ! execute the option 
1 1000 successful rays in wspotl, 

random ray distribution on first surface annulus 
rmin= 0.7505025549956299E+02, rmax= 0 . 7640170861803300E+02 
azmin (radians)= -0 . 3141592653589793E+01, azmax (radians)= 
0.314159265358 97 93E+01 

field angle (radians)= 0 . OOOOOOOOOOOOOOOOE+OO 
azimuth (radians) = 0 . 0000000000000000E+00 


0 rays were vignetted or obscured 

0 rays failed in ssrt 

energy ( 1)= -0 . 1000000000000000E+01, effective area= 0 . 6430219044059306E+03 

energy ( 2)= 0 . 2770000000000000E+00, effective area= 0 . 4770593063472806E+03 

energy ( 3)= 0 . 5728000000000000E+00, effective area= 0 . 4832782607539592E+03 

GTRACE>fcs ! refocus option 
FCS>go ! execute the option 

weighted planar focus: energy( 1)= -0 . 1000000000000000E+01 

number of rays= 1000 
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*** stored rays modified *** 

delta z = -0.54 66777139285604 E- 11, net zshift- -0 . 5466777139285604E-11 

new x average= -0 . 8423862330255359E-16, new y average= 

0. 840083413865564 8E-15 

GTRACE>wst ! average position and rms option 
WST>go ! execute the option 

length statistics for: energy ( 1)= -0 . 1000000000000000E+01 

number of rays= 1000, field angle (radians) = 0 . OOOOOOOOOOOOOOOOE+OO 

net zshift= -0 . 5466777139285604E-11 

x average= -0 . 8423862330255359E-16, y average= 0 . 8400834138655648E-15 

xrms = 0 . 2 Oil 8 15720717 621E-13 , yrms = 0 . 1974284384504887E-13 

rms= 0. 281872335 02112 97 E-13 

xmin= -0 . 7117447022322689E-13, xmax= 0.7377058711339266E-13 

ymin= -0 . 7081536115041014E-13, ymax= 0 . 6300754746166225E-13 

weight sum= 0 . 6430219044059306E+03 

weight average= 0 . 6430219044059307E+00 

weight rms= 0 . OOOOOOOOOOOOOOOOE+OO 

wmin= 0 . 6430219044059191E+00, wmax= 0 . 6430219044059191E+00 


arc sec statistics for: energy ( 1)= -0 . 1000000000000000E+01 

assumed focal length= 0 . 6564832312844800E+03, number of rays 1000 
x average (arc sec)= -0.2646748993119960E-13 

y average (arc sec)= 0 . 2639513613368916E-12 

xrms (arc sec) = 0 . 6321056807905900E-11 

yrms (arc sec) = 0 . 6203134621577281E-11 

rms (arc sec) = 0 . 8856333231207158E-11 

GTRACE>spo ! spot diagram option 
SPO>go ! execute the option 

1 spot diagram: first 1000 rays of 1000 stored 
assumed center: x = -0 . 8423862330255359E-16, y = 0. 8400834138655648E-1! 

Press <Enter> to continue 
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o 


x-axis 


0 . 810E-13 
0 . 720E-13 
0 . 630E-13 
0 . 540E-13 
0 . 450E-13 
0 . 360E-13 
0 . 270E-13 
0.180E-13 
0 . 900E-14 
0 . 000E+00 
-0 . 900E-14 
-0 . 180E-13 
-0 . 270E-13 
-0 . 360E-13 
-0 . 450E-13 
-0 . 540E-13 
-0 . 630E-13 
-0 . 720E-13 
-0 . 810E-13 


I 

* 


* I ^ 

* *** 

* * * * * * 

** ***ik r****** 

** ************** ** 

* ************** *** 
********************* 

********************* 

* ******************* 

* ******************** 
** *************** 

* **************** 

* * ********* ** 

* ***J* ** * * 

* * 

J * * * 

I 

x, M 

y-axis -0 . 134344E-12 -0 . 474399E-14 

GTRACE>zra ? ! check z range 
z range = 1 . OOOOOOOOOOOOOD+50 

GTRACE>zra 10000 ! try to change z 
GTRACE>zra ? ! check it again 

z range = 10000 . 0000000000 

GTRACE>foc ? ! check focal length 

foclen = 656.48323128448 

GTRACE>exi ! exit the program 
EXITING THE PROGRAM ? (Y/N) y 
zeus { chen} 63> 


range 


U 

0 . 124856E-12 
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A7.2 Sample Session for Command Mode with Interactive Help 

zeus { chen } 63>gt2 


***** + ***** + + + ******** vlr *** ilr + + 

* 

* GrazTrace * 

* 

★ 

************************, i ^^ +ilr 


GTRACE>help 

HEL 


Help 


only will automatically provide the 
about latest command entered before help. 


information 


about ' tha t "command . command P^^ide information 


GRA2TRACE°commands? y “ nkn ° Un COmmand “ U1 list ail 

See also: 

GTRACE> 

GTRACE>help 


Unknown 

command 








GRAZTRACE commands list 



ADA 

DEB 

EDI 

FDF 

IND 

AMA 

DET 

EFF 

FOC 

ITI 

APE 

DIS 

ELE 

GO 

LEN 

AZI 

DXC 

ENE 

GRI 

LIS 

AZM 

DXR 

ERR 

GR2 

MAT 

CAN 

DYC 

EXI 

HEL 

MAX 

DAZ 

DYR 

FCS 

IEN 

MOD 
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MOV 

NAZ 

NFR 

NLO 

NRA 

NRG 

OBS 

PAS 

PRI 

RAD 

RES 

RLI 

RST 

RSV 

SAV 

SDA 

SOU 

SPO 

SUR 

SYS 

THI 

THR 

TIL 

TIT 

Typ 

VIG 

WGT 

WSP 

WST 

7 

WS2 

XCE 

XWI 

YCE 

YWI 

ZRA 

See 

manual or 

Type HELp 

for 

further 

information 



GTRACE>hel ? 

7 

Help and inquiry 
? only serves as help command, 

? in data field entry will allow to check current value, 

See also HEL. 

GTRACE>res sample 
GTRACE>hel 

RES filspec 

Restore system from prescription file 

filspec - file name 

See also: SAV, LIS. 

GTRACE>wsp 

WSP>hel 

WSP 


Random ray trace 

WSP traces nra successful rays randomly arranged on 
the first surface annulus at location Z=0 . 
Intercept, slopes, and effective area weights are 
stored for the last surface for each ray. 

Options : 

AZM azimus_middle_angle, (default is 0) 

DAZ delta_azimus_angle, (default 2 pi) 

NRA number_of_rays, (default 1000) 

GO for executing the analysis, 

CAN for cancelling the analysis. 

See also: WS2, GRI, GR2 , RSV. 

GTRACE>wsp 

WSP>go 

1 1000 successful rays in wspotl, 
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random ray distribution on first surface annulus 
rmin= 0 . 7505025549956299E+02, rmax= 0 . 7640170861803300E+02 

azmin (radians)= -0 . 3141592653589793E+01, azmax (radians)= 
0.3141592653589793E+01 

field angle (radians)= 0 . OOOOOOOOOOOOOOOOE+OO 

azimuth (radians) = 0 . OOOOOOOOOOOOOOOOE+OO 


0 rays were vignetted or obscured 
0 rays failed in ssrt 

energy ( 1)= -0 . 1000000000000000E+01, effective area= 0 . 6430219044059306E-! 

energy( 2)= 0 . 2770000000000000E+00, effective area= 0 . 4770593063472806E-) 

energy ( 3)= 0 . 5728000000000000E+00, effective area= 0 . 4832782607539592E4 

GTRACE>hel 

GO 


Execution option 

GO executes the analysis using all previously 

entered option inputs and then return control to 
the command level . 

See also: CAN. 

GTRACE>hel can 

CAN 


Cancel option 

CAN cancels all inputs to the analysis and 
return control to the command level. 

See also: GO. 

GTRACE>exi 

EXITING THE PROGRAM ? (Y/N)y 
zeus{chen} 60> 
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A7.3 Sample Session for Command Mode with Deformation 


A7.3.1 Deformation data from COSMOS/M 


zeus { chen } 60>gt2 


* * 

* GrazTrace * 

+ * 


GTRACE>res sample 
GTRACE>wsp 
WS P>go 

1 1000 successful rays in wspotl, 

random ray distribution on first surface annulus 

rmin= 0 . 750502554 9956299E+02 , rmax= 0.7640170861803300E+02 
azmin (radians)= -0 . 3141592653589793E+01, azmax (radians)= 

0. 314159265358 9793E+01 

field angle (radians)= 0 . OOOOOOOOOOOOOOOOE+OO 

azimuth (radians) = 0 . OOOOOOOOOOOOOOOOE+OO 


0 rays were vignetted or obscured 
0 rays failed in ssrt 

energy( 1)= -0 . 1000000000000000E+01, effective area= 0 . 6430219044059306E+03 

energy! 2) = 0 . 2770000000000000E+00, effective area= 0 . 4770593063472806E+03 

energy ( 3)= 0 . 5728000000000000E+00 , effective area= 0 . 4832782607539592E+03 

GTRACE>spo 
S PO>go 

1 spot diagram: first 1000 rays of 1000 stored 
assumed center: x = 0 . OOOOOOOOOOOOOOOOE+OO, y = 0 . OOOOOOOOOOOOOOOOE+OO 

Press <Enter> to continue 
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x-axis 

0 . 720E-12 
0. 640E-12 
0 . 560E-12 

I 

*+ ***** 

0 . 480E-12 

****** 

I 

****** 

0 . 400E-12 

* * * * 

I 

* * * * 

0 . 320E-12 

* * * 

I 

** ** 

0 . 240E-12 

* * * 

I 

* * * * 

0 . 160E-12 

**★ 

I 

* * * * 

0 . 800E-13 

* * * 

I 

* *** 

0 . 000E+00 




-0 . 800E-13 

* * * ★ 

I 

*** 

-0 . 160E-12 

* * * 

I 

** 

-0 . 240E-12 

* * * 

I 

* * * 

-0 . 320E-12 

*** 

I 

**** 

-0 . 400E-12 

* ** 

I 

*** 

-0. 480E-12 

****** 

I 

* * * * 

-0 . 560E-12 

****** 

I 

******* 

-0. 640E-12 

* * * * 

************ 

-0 . 720E-12 


****** 



L M 

y-axis -0 . 115911E-11 -0 . 710543E-14 

GTRACE>fdf 5 sxicos.dfm 


U 

0 . 114489E-11 


surface 5 uses file: 

sxicos.dfm 

in storage area 1 


deformation surface data from file: 
sxicos . dfm 
in storage area 1 
sxi from cosmos/m 

1001 azimuthal bins, 201 axial bins 

azimuthal limits (radians) -0 . 3141592741012573E+01 0. 3141592741012573E+01 

azimuthal increment (radians) 0 . 6283185482025147E-02 
axial limits -0 . 4950000000000000E+02 0 . 4950000000000000E+02 

axial increment 0 . 4950000000000000E+00 


GTRACE>fdf 11 sxicos.dfm 


surface 5 uses file: 
sxicos . dfm 
in storage area 1 


surface 11 uses file: 
sxicos . dfm 
in storage area 1 


deformation surface data from file: 
sxicos . dfm 
in storage area 1 
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sxi from cosmos /m 

1001 azimuthal bins, 201 axial bins 

azimuthal limits (radians) -0 . 3141592741012573E+01 0 . 3141592741012573E+01 

azimuthal increment (radians) 0 . 6283185482025147E-02 
axial limits -0 . 4 950000000000000E+02 0 . 4950000000000000E+02 

axial increment 0 . 4950000000000000E+00 


GTRACE>typ 

? 

itype ( 

1) 

= flat 

itype ( 

2) 

= flat 

itype { 

3) 

= flat 

itype ( 

4) 

= flat 

itype ( 

5) 

= grzconOl 

itype ( 

6) 

= flat 

itype ( 

7) 

= flat 

itype ( 

8) 

= flat 

itype ( 

9) 

= flat 

itype ( 

10) 

= flat 

itype ( 

ID 

= grzconOl 

itype ( 

12) 

= flat 

itype ( 

13) 

= flat 

itype ( 

14) 

= flat 

itype ( 

15) 

= flat 

itype ( 

16) 

= flat 

GTRACE>typ 

5 grazconl3 

GTRACE>typ 

11 grzconl3 

GTRACE>typ 


itype ( 

1) 

= flat 

itype { 

2) 

= flat 

itype ( 

3) 

= flat 

itype ( 

4) 

= flat 

itype ( 

5) 

= grzconl3 

itype ( 

6) 

= flat 

itype ( 

7) 

= flat 

itype ( 

8) 

= flat 

itype ( 

9) 

= flat 

itype ( 

10) 

= flat 

itype ( 

11) 

= grzconl3 

itype ( 

12) 

= flat 

itype ( 

13) 

= flat 

itype ( 

14) 

= flat 

itype ( 

15) 

= flat 

itype ( 

16) 

= flat 

GTRACE>wsp 



WSP>go 

1 1000 successful rays in wspotl, 

random ray distribution on first surface annulus 

rmin= 0.7505025549956299E+02, rmax= 0 . 7640170861803300E+02 

azmin (radians)= -0 . 3141592653589793E+01, azmax (radians)= 

0. 3141592653589793E+01 

field angle (radians)= 0 . OOOOOOOOOOOOOOOOE+OO 

azimuth (radians) = 0 . OOOOOOOOOOOOOOOOE+OO 


0 rays were vignetted or obscured 
0 rays failed in ssrt 
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energy ( 1)= -0 . 1000000000000000E+01, effective area= 0. 6430219044059306E+ 

energy ( 2)= 0 . 2770000000000000E+00, effective area= 0 . 4770593401842925E4 

energy ( 3)= 0 . 5728000000000000E+00, effective area= 0 . 4832782976740266E4 

GTRACE>spo 

SPO>go 

1 spot diagram: first 1000 rays of 1000 stored 
assumed center: x = 0 . OOOOOOOOOOOOOOOOE+OO, y = 0 . OOOOOOOOOOOOOOOOE+Oi 

Press <Enter> to continue 
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0 x-axis 


0 . 360E-02 
0 . 320E-02 
0 . 280E-02 
0 . 240E-02 
0 . 200E-02 
0 . 160E-02 
0 . 120E-02 
0 . 800E-03 
0 . 400E-03 

0 . 000E+00 

-0 . 400E-03 
-0 . 800E-03 
-0 . 120E-02 
-0 . 160E-02 
-0 . 200E-02 
-0 . 240E-02 
-0 . 280E-02 
-0 . 320E-02 
-0 . 360E-02 

L 

y-axis -0. 569277E-02 

GTRACE>exi 

EXITING THE PROGRAM ? 


I 
I 

* J * 

* J * 

•ie J * + 

•k ★ *k -k + tIt 

■k ~k k: kr -k -k k 

•k •kk-kk'kkr-k-k'k 
■k'k'kkk'k'k'k 
•k k k k k 

kkk kkk 

* * * 

* I * 

* I 

I * 

M 

0 . 672324E-04 

(Y/N)y 


_*■* + _* 
* 


U 

0 . 582723E-02 
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A7.3.2 Deformation data from NASTRAN 


zeus {chen } 57> gt2 


*********** ****************** 
* * 

* GrazTrace * 

* * 

***************************** 


GTRACE>res sample 
GTRACE>wsp 
WSP>go 

1 1000 successful rays in wspotl, 

random ray distribution on first surface annulus 
rmin= 0 . 7505025549956299E+02, rmax= 0 . 7640170861803300E+02 

azmin (radians) - -0 . 3141592653589793E+01, azmax (radians) = 

0.31415 92 65358 97 93E+01 

field angle (radians)= 0 . OOOOOOOOOOOOOOOOE+OO 

azimuth (radians) = 0 . OOOOOOOOOOOOOOOOE+OO 


0 rays were vignetted or obscured 
0 rays failed in ssrt 

energy ( 1)= -0 . 1000000000000000E+01, effective area= 0. 6430219044059306EH 

energy ( 2)= 0.2770000000000000E+00, effective area= 0 . 4770593063472806EH 

energy ( 3)= 0 . 5728000000000000E+00, effective area= 0 . 4832782607539592EH 

GTRACE>spo 
S PO>go 

1 spot diagram: first 1000 rays of 1000 stored 
assumed center: x = 0 . OOOOOOOOOOOOOOOOE+OO, y = 0 . 0000000000000000E+01 

Press <Enter> to continue 
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0 x-axis 


0 . 720E-12 
0 . 640E-12 
0 . 560E-12 

I 

* * * * * * * 

0 . 480E-12 

* * * * * * 

I 

****** 

0 . 400E-12 

* ** * 

I 

*** * 

0. 320E-12 

* ** 

I 

* * * * 

0 . 240E-12 

* * * 

I 

* * * * 

0.160E-12 

* * * 

I 

* * * * 

0 . 800E-13 

★ * * 

I 

* * * * 

0 . 000E+00 


I 


-0 . 800E-13 

* * * 

I 

** * 

-0.160E-12 

■A - •A’ + 

I 

* * 

-0.240E-12 

* * + 

I 

* * * 

-0 . 320E-12 

+ + At 

I 

* * * * 

-0 . 400E-12 

+ ■*• * 

I 

* * * 

-0 . 480E-12 

****** 

I 

* * * * 

-0.560E-12 

****** 

I 

******* 

-0 . 640E-12 

**************** 

-0 . 720E-12 


****** 



L M U 

y-axis -0. 115911E-11 -0 . 710543E-14 0.114489E-11 

GTRACE>fdf 5 sxinas . dfm 


surface 5 uses file: 
sxinas .dfm 
in storage area 1 


deformation surface data from file: 
sxinas .dfm 
in storage area 1 
sxi from nastran 

1001 azimuthal bins, 201 axial bins 

azimuthal limits (radians) -0 . 3141592741012573E+01 0 . 3141592741012573E+01 

azimuthal increment (radians) 0 . 6283185482025147E-02 
axial limits -0 . 4950000000000000E+02 0. 4950000000000000E+02 

axial increment 0 . 4950000000000000E+00 


GTRACE>fdf 11 sxinas. dfm 


surface 5 uses file: 
sxinas . dfm 
in storage area 1 


surface 11 uses file: 
sxinas . dfm 
in storage area 1 


deformation surface data from file: 
sxinas .dfm 
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in storage area 1 
sxi from nastran 

1001 azimuthal bins, 201 axial bins 

azimuthal limits (radians) -0 . 3141592741012573E+01 0 . 3141592741012573E+01 

azimuthal increment (radians) 0. 6283185482025147E-02 
axial limits -0 . 4 950000000000000E+02 0 . 4950000000000000E+02 

axial increment 0 . 4950000000000000E+00 


GTRACE>typ 5 grzconl3 
GTRACE>typ 11 grzcon!3 


GTRACE>typ ? 


itype ( 

1) 

= flat 

itype ( 

2) 

= flat 

itype ( 

3) 

= flat 

itype ( 

4) 

= flat 

itype ( 

5) 

= grzconl3 

itype ( 

6) 

= flat 

itype ( 

7) 

= flat 

itype ( 

8) 

= flat 

itype ( 

9) 

= flat 

itype ( 

10) 

= flat 

itype ( 

ID 

= grzconl3 

itype ( 

12) 

= flat 

itype ( 

13) 

= flat 

itype ( 

14) 

= flat 

itype ( 

15) 

= flat 

itype ( 

16) 

= flat 


GTRACE>wsp 

WSP>go 

1 1000 successful rays in wspotl, 

random ray distribution on first surface annulus 
rmin= 0 . 7505025549956299E+02 , rmax= 0 . 7640170861803300E+02 
azmin (radians)= -0 . 3141592653589793E+01, azmax (radians)= 

0. 314159265358 9793E+01 

field angle (radians)= 0 . OOOOOOOOOOOOOOOOE+OO 

azimuth (radians) = 0 . 0000000000000000E+00 


0 rays were vignetted or obscured 
0 rays failed in ssrt 

energy ( 1)= -0 . 1000000000000000E+01, effective area= 0 . 6430219044059306E-t 

energy ( 2)= 0.2770000000000000E+00, effective area= 0 . 4770593398247984E^ 

energy ( 3)= 0 . 5728000000000000E+00, effective area= 0 . 4832782973241684E4 

GTRACE>spo 
SPO>go 

1 spot diagram: first 1000 rays of 1000 stored 
assumed center: x = 0 . OOOOOOOOOOOOOOOOE+OO, y = 0 . 0000000000000000E+0C 

Press <Enter> to continue 
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0 x-axis 


0 . 540E-02 
0 . 480E-02 
0 . 420E-02 
0 . 360E-02 
0 . 300E-02 
0 . 240E-02 
0 . 180E-02 
0 . 120E-02 
0 . 600E-03 
0 . OOOE+OO 
-0 . 600E-03 
-0 . 120E-02 
-0 . 180E-02 
-0 . 240E-02 
-0 . 300E-02 
-0 . 360E-02 
-0 . 420E-02 
-0 . 480E-02 
-0 . 540E-02 

L 

y-axis -0 . 845256E-02 
GTRACE>exi 

EXITING THE PROGRAM ? 
zeus {chen} 58> 


I 

*1 

I 

I 


I 

+ + j + 

I 

I 

M 

0 . 187438E-03 

( Y/N) y 


* j* 

* + * j* 

Ar Ar Ar Ar Ar Ar 

■A* Ar Ar Ar Ar Ar Ar 

★ Ar Ar Ar Ar Ar Ar 

Ar Ar Ar Ar Ar 
Ar Ar Ar Ar * Ar 
■A I Ar 


U 

0 . 88274 4E-02 
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A7.4 Sample Running Structure Analysis Interface 


A7.4.1 Convert data from COSMOS/M list file 


zeus { chen } 58>drinfea 

NAME OF INPUT DATA FILE (1-132 CHARS. - ALPH/NUM/UNSC ) ? 

sxccos . lis 

NAME OF OUTPUT DATA FILE (1-132 CHARS. -ALPH/NUM/UNSC) ? 

sxicos . dfm 

INPUT DESIRED HEADER MESSAGE (MAX. OF 20 LINES/80 CHARS. PER LINE) ? 
(END WITH ctrl-d ON A LINE BY ITSELF) 

sxi from cosmos /m 

CONVERT CARTESIEN DATA TO CYLINDICAL (Y/N)y 
INPUT DATA FROM COSMOS/M / NASTRAN (C/N)c 
NEED MODIFY COORDINATE (Y/N)y 
KEY IN SHIFT AND SCALE tO ts zO zs drO drs 

0 1 0 10 0 10 

THETA SHIFT AND SCALE t0= 0. ts= 

Z SHIFT AND SCALE z0= 0. zs= 

DELTA RADIUS SHIFT AND SCALE dr0= 0. drs= 

CORRECT ? (Y/N) y 

CHANGE AXIAL LENGTH ( 990 . 6) (Y/N) y 
KEY IN AXIAL LENGTH lz 

99 

AXIAL LENGTH lz= 99.0000 
CORRECT ? (Y/N) y 

transform to graztrace coordinates 
extend distribution by 0.61086525519689 radians 
INPUT FILE HAS 387 SEGMENTS OF DATA 
BEGIN INTERPOLATION OF DATA 

EXECUTION TIME FOR INTERPOLATION OF DATA (SECONDS) = 25.2500 

INTERPOLATED VALUES HAVE BEEN WRITTEN TO OUTPUT FILE 
zeusjchen} 47> 


1.0000000000000 

10.0000000000000 

10.0000000000000 
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A7.4.2 Convert data from NASTRAN standard output 


zeus{chen} 47> drinfea 

NAME OF INPUT DATA FILE (1-132 CHARS. - ALPH/NUM/UNSC) ? 

sxinas . out 

NAME OF OUTPUT DATA FILE (1-132 CHARS. -ALPH/NUM/UNSC) ? 

sxinas . dfm 

INPUT DESIRED HEADER MESSAGE (MAX. OF 20 LINES/80 CHARS. PER LINE) ? 
(END WITH ctrl-d ON A LINE BY ITSELF) 

sxi from nastran 

CONVERT CARTES I EN DATA TO CYLINDICAL ( Y/N) y 
INPUT DATA FROM COSMOS/M / NASTRAN (C/N)n 
NEED MODIFY COORDINATE (Y/N)y 
KEY IN SHIFT AND SCALE tO ts zO zs drO drs 

0 1 0 10 0 10 

THETA SHIFT AND SCALE t0= 0. ts= 1.0000000000000 

Z SHIFT AND SCALE z0= 0. zs= 10.0000000000000 

DELTA RADIUS SHIFT AND SCALE dr0= 0. drs= 10.0000000000000 
CORRECT ? (Y/N)y 

CHANGE AXIAL LENGTH ( 990 . 6 ) (Y/N) y 
KEY IN AXIAL LENGTH lz 

99 

AXIAL LENGTH lz= 99.0000 
CORRECT ? (Y/N) y 

transform to graztrace coordinates 

extend distribution by 0.61086525519689 radians 
INPUT FILE HAS 387 SEGMENTS OF DATA 
BEGIN INTERPOLATION OF DATA 

EXECUTION TIME FOR INTERPOLATION OF DATA (SECONDS) = 25.5900 

INTERPOLATED VALUES HAVE BEEN WRITTEN TO OUTPUT FILE 
zeus { chen} 50> 
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APPENDIX 8 

DATA BASE FOR AXAF TECHNICAL 
DOCUMENTATION 
USER MANUAL 




TO LOG ON TO DATA BASE 


ID: wanda 

PASSWORD: jazzylO 

xwin 
wpp 

Ctrl F5 FILE% 

Use word perfect commands to go to the end of file to input 
records . 


AFTER TYPING IN PASSWORD DO THE FOLLOWING 
vi FILE% 


Use the getting started with SunOS Quick Reference 
to move around in text editor files. 


TO LOGOFF USING WORD PERFECT 


Ctrl F5 and follow steps to save as unix text. 

TO LOCATE A FILE BY NAME NOT SENDING TO PRINTER 

at the venus prompt, type: grep NAME FILE% 

TO LOCATE A FT1F. AND SORT THE FILE 

at the venus prompt, type: grep NAME FILE%» OUT 

go into word perfect and sort, then send to the printer 
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